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I INTRODUCTION 


A.  Project  Background 

The  Office  of  Naval  Research  (ONR)  Is  currently  pursuing  a 5-year 
multicontractor  program  to  promote  the  development  of  decision  aids  and 
procedures  in  support  of  fleet  operations.  The  objective  of  the  work  is 
to  improve  tactical  decisionmaking  by  blending  a number  of  technologies 
such  as  decision-analysis,  computer-driven  graphic  displays,  advanced 
data  management  systems,  information  feedback,  mathematical  prediction, 
tactical  models,  and  organizational  analysis  into  a practical  system  for 
shipboard  use.  By  concentrating  on  the  needs  and  activities  of  the  task 
force  commander  (TFC)  and  his  staff,  the  project  emphasizes  decision  aids 
that  rely  on  the  judgments  of  senior  officers  experienced  in  operational 
situations,  rather  than  on  the  predictions  of  system  designers.  These 
aids  will  provide  guidelines  and  tools  to  structure  decision  problems, 
elicite  judgments  of  probabilities  and  outcome  preferences,  furnish  stored 
data  and  models  requested  by  the  decision  maker,  make  statistical  infer- 
ences, and  display  and/or  print  the  implications  of  trial  tactics  before 
their  execution.  All  of  these  objectives  are  compatible  with  ongoing 
command-control  hardware  programs.  Decision  makers  will  thus  be  provided 
with  a man-computer  interactive  capability  to  help  them  examine  and  evaluate 
alternative  courses  of  action. 

The  Naval  Warfare  Research  Center  (NWRC)  of  SRI  International 
(formerly  Stanford  Research  Institute)  has  been  a continuing  participant 
in  the  program  under  Contract  N00014-75-C-0742.  NWRC  has  evaluated  and 
produced  a specific  task  force  decision-aiding  procedure  called  the  Strike 
Outcome  Calculator  (SOC) . SOC,  which  is  an  automated  decision  aid  for  use 
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in  estimating  outcomes  associated  with  naval  air  strikes,  is  described 
here  in  detail  to  allow  its  employment  by  decision  makers.  For  further 
background  on  SOC,  refer  to  the  following  two  documents  produced  by  NWRC: 


"Augmentation  of  the  Naval  Task  Force  Decision-Aiding  System:  The  Outcome 
Calculator"  (April  1977)  and  "Evolution  and  Preliminary  Tests  of  the  Strike 
Outcome  Calculator"  (March  1978). 


B.  SOC  Concept 

SOC  is  a decision  aid  that  enables  a user  quickly  and  easily  to 
estimate  battle  outcomes  associated  with  alternative  courses  of  action 
(COA) . SOC  consists  not  only  of  a computational  algorithm,  but  of  an 
interactive  medium  to  facilitate  both  the  description  of  alternative  COAs 
and  the  display  of  the  associated  battle  outcomes.  A decision  aid  like 
SOC  may  prove  useful  in  decisions  concerned  with  long-range  planning, 
contingency  planning,  and  short-range  tactical  execution.  SOC  is  tailor- 
made  for  use  as  a component  of  a naval  task  force  decision-aiding  system. 
In  addition  to  this  role,  SOC  is,  in  its  own  right,  a decision  aid  and 
can  be  used  independently  of  any  structured  decision  problem  solving 
system. 

The  SOC  concept  is  illustrated  in  Figure  1.  As  the  figure  indicates, 
the  major  parameters  that  enter  into  the  choice  among  alternative  COAs 
are  timing,  use  of  assets,  force  position,  threat  action,  and  weather. 
Combinations  of  parameters  can  produce  several  alternatives,  which  are 
sometimes  represented  as  branches  of  a "decision  tree."  SOC  evaluates 
outcomes  associated  with  such  branches.  A user  generally  describes  a 
possible  COA  by  prescribing  values  of  these  parameters  in  aggregate,  often 
qualitative,  terms.  SOC  then  allows  the  user  to  easily  describe  alterna- 
tive COAs  over  a wide  range  of  values  of  associated  parameters,  and  yet 
maintain  a level  of  detail  consistent  with  his  needs. 
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As  shown  in  Figure  1,  the  SOC  system  contains  three  major  components: 
the  communicator/translator,  the  aggregate  SOC  data  base,  and  the  computa- 
tional algorithm.  The  communicator/translator  is  the  man-machine  interface 
between  the  decision-maker  and  the  computational  algorithm  and  data  base. 

The  translator  is  sufficiently  familiar  with  the  decision  problem  to  trans- 
late aggregate  qualitative  descriptions  into  the  input  formats  required  by 
SOC.  The  communicator  is  an  interactive  hardware/software  system  that  per- 
mits the  translator  to  communicate  the  description  of  the  COAs  easily  to 
the  computer  in  order  to  obtain  the  desired  outcome  estimates.  The  communicator 
has  been  designed  to  enable  the  user  to  proceed  through  a series  of  alterna- 
tive COAs  efficiently.  The  communicator/translator  facilitates  the  use  of 
SOC  as  a component  of  an  overall  decision-aiding  system  for  evaluating  a 
set  of  alternative  COAs  identified  within  a decision  structuring  component 
as  well  as  for  answering  "what  if"  questions  and  planning  for  contingencies. 


A second  major  component  of  SOC  is  the  aggregate  data  base.  This  data 
base  contains  data  of  three  types:  background,  scenario,  and  COA.  All 
data  in  the  SOC  are  at  a level  of  aggregation  consistent  with  that  used  by 
a TFC.  The  aggregate  data  base  facilitates  the  translation  of  descriptions 
of  the  situations  and  alternative  decisions  into  quantitative  terms. 

Background  data  are  generally  constant  over  a wide  range  of  scenarios. 
Such  data  include  friendly  and  enemy  force  capability  data  (e.g.,  weapon 
system  performance,  availability,  and  effectiveness  characteristics). 
Scenario  data  vary  with  the  scenario  under  consideration,  and  include 
friendly  and  enemy  resources,  force  concentration,  and  environment.  COA 
data  include  the  timing,  use  of  assets,  force  position,  and  threat  action 
data  that  describe  a particular  COA. 

Background  data  are  generated  by  manual  aggregation  of  the  detailed 
weapon  system  performance  and  operations  data  to  the  level  required  by 
SOC.  Similarly,  developing  scenario  data  involves  manual  procedures  in 
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which  more  detailed  operational  and  intelligence  data  are  used  to  obtain 
the  aggregate  data  for  SOC. 


In  general,  background  and  scenario  data  will  have  been  loaded  pre- 
viously into  the  aggregate  SOC  data  base.  For  various  decision  problems, 
the  user  provides  COA  data  by  means  of  the  communicator/translator  and 
receives  outcome  estimates.  The  battle  results  are  generated  by  the  com- 
putational algorithm  from  the  current  background,  scenario,  and  COA  data 
in  the  data  base.  A series  of  alternatives  are  investigated  by  modifying 
the  COA  data  to  move  from  one  alternative  to  another.  The  communicator 
provides  the  user  with  direct  access  to  all  the  data  in  the  aggregate 
data  base  and  allows  him  to  display  and  modify  all  data. 

The  computational  algorithm  uses  the  data  in  the  aggregate  data  base 
for  straightforward  computation  of  battle  results.  The  relative  simpli- 
city of  the  algorithm,  which  enables  interested  users  to  understand  the 
number-generating  routines,  does  not  imply  a lack  of  credibility.  The 
algorithm  is  consistent  with  the  level  of  detail  of  the  data,  and  therefore 
the  integrity  of  the  overall  system  is  maintained.  In  fact,  the  absence 
of  internal  assumptions,  which  are  common  in  more  detailed  algorithms, 
enhances  the  credibility  of  the  SOC  algorithm.  In  essence,  the  SOC  com- 
putational algorithm  provides  a consistent,  understandable,  automated 
means  of  transforming  a COA,  as  described  by  the  user  in  terms  of  the  data, 
into  the  implications  of  the  action  in  terms  of  attrition  and  battle 
accomplishment  results. 

The  data  are  structured  to  permit  model  credibility  without  over- 
burdening detail.  In  most  battle  simulations,  as  the  inputs  become  more 
numerous  or  detailed  (with  a resulting  increase  in  model  sophistication), 
the  user  cannot  rapidly  and  easily  see  the  underlying  numerical  routines; 
this  reduces  his  ability  to  relate  the  casual  effects  of  the  input  to  the 
output.  The  aggregated  data  of  SOC  allow  the  user  to  avoid  lack  of 


confidence  associated  with  more  detailed  data  inputs  that  are  character- 
ized by  hidden  and  inflexible  assumptions,  doctrines,  and  numerical  tech- 
niques within  the  model.  Additionally,  with  SOC  users  can  employ  their 
judgement  and  experience  as  necessary  or  desired. 

C.  Document  Purpose  and  Organization 

This  document  provides  the  information  required  to  exercise  SOC  method- 
ology properly.  Because  the  audience  for  this  volume  is  comprised  of  naval 
decision  makers,  users  are  assumed  to  understand  relevant  Navy  systems,  pro- 
cedures, and  terminology.  Use  of  this  document  does  not  require  a technical 
data  processing  background.  However,  a general  knowledge  of  the  basic 
principles  of  data  processing  will  aid  the  user. 

The  document  sets  forth  computer  hardware  and  software  requirements 
(Section  I D)  necessary  to  exercise  the  SOC  and  also  states  the  input  data 
requirements  (Section  II  B).  These  requirements  appear  early  in  the  docu- 
ment to  help  explain  the  computational  algorithm  used  within  SOC  (Section  III). 
The  inputs  are  stated  in  conjunction  with  sample  data  generated  from  the 
problem  scenario  in  Appendix  A.  Section  II  on  SOC  data  closes  with  an  inter- 
pretation of  the  generated  output. 

Later  sections  detail  the  major  subroutines  used  within  the  SOC  and 
describe  the  systems  man-machine  capabilities.  Appendix  B shows  the  SOC 
program  listing. 

D.  Computer  Hardware  and  Software  Requirements 

SOC  is.  currently  configured  for  a PDP-10  computer  and  uses  the  time- 
sharing, interactive  capability  of  that  system.  It  requires  35,000  words 
of  core  storage  and  is  written  primarily  in  the  FORTRAN  and  MACRO  (assembly) 
languages.  Each  MACRO  routine  has  a single  purpose  and  is  called  up  via 
FORTRAN  to  perform  a single  function,  primarily  in  the  area  of  character 
manipulation  and  terminal  (CRT)  input/output  (I/O). 


SOC  requires  a CRT  nonstorage  screen  with  the  following  functions: 


• Character-for-character  transmission 

• Erase  screen  via  line 

• Cursor  movement  via  line 

• Blink  on/off  via  line  (optional). 

During  the  display  and  editing  performed  by  SOC,  the  terminal  needs  to 
achieve  an  uninterrupted  nonechoed  character  1/0.  In  some  systems  this 
is  called  BINARY  or  TRANSPARENT  MODE.  SOC  is  now  programmed  to  handle 
two  terminals,  the  DATAMEDIA  1520  and  2500,  but  can  be  expanded  to 
accommodate  more  terminals  with  minor  modifications.  These  modifications 
involve  changes  in  the  INIT,  NWSCRN,  PTBLC , and  PTUBLC  subroutines.  A 
line  speed  of  at  least  2400  baud  is  recommended  to  enhance  SOC  interaction. 

To  use  SOC,  the  program  will  have  to  be  compiled  and  readied  for 
execution  by  the  time-share  user.  A support  file  known  as  FORMS  is  required 
and  must  be  installed  on  a direct-access  device  during  program  execution. 

The  program  reads  this  file  (composed  of  SOC  computer  table  formats) 
throughout  the  program  execution. 
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II  SOC  DATA 

A.  Introduction 

The  SOC  data  base  is  organized  into  19  internally  stored  computer 
tables.  The  first  14  are  used  by  the  decision  maker  to  input  parameters 
into  the  SOC  computational  algorithm  and  the  last  5 are  used  to  receive 
the  associated  results.  The  computer  table  titles  are  listed  in  Table  1. 
(To  avoid  confusion  with  other  tables  in  this  report,  the  computer  tables 
discussed  herein  are  portrayed  as  "exhibits.") 


T ab  le  1 


SOC  COMPUTER  TABLES 


Computer 

Table 

Title 

Type 

1 

Blue  and  Red  Force  Elements 

2 

Blue  Force  Units  1 

3 

Red  Force  Units  1 

4 

Engagement  Statistics,  Blue  Attacking  Red  ^ 

^ Background 
data 

5 

Engagement  Statistics,  Red  Attacking  Blue  i 

6 

Weapon  Platform  Availability  ' 

7 

Operations  and  Damage  Repair  Capabilities 

1 

8 

Blue  Force  Complexes  j 

Scenario 

9 

Red  Force  Complexes  , 

data 

10 

Miscellaneous  Inputs 

11 

Blue  Operations  Plans 

12 

Red  Operations  Plans 

CCA 

13 

Relative  Force  Positions 

1 data 

14 

Weather  Days 

15 

Blue  Mission  Accomplishment  Results 

) 

16 

Red  Mission  Accomplishment  Results 

1 Results 

17 

Blue  Battle  Attrition  Results 

/ (computed 

18 

Red  Battle  Attrition  Results 

1 outcomes) 

19 

Aircraft  Expenditure  Summary 

9 


This  document  examines  the  contents  of  each  computer  table,  by  look- 
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ing  first  at  the  input  computer  tables  and  their  associated  three  types 
of  data:  background,  scenario,  and  COA.  Their  explanation  is  geared  to  an 
example  from  the  ONRODA  problem  scenario  in  Appendix  A.  Examination  of 
that  scenario  will  aid  the  reader  as  he  studies  the  input  data  examples 
that  are  shown.  When  applicable,  suggestions  are  given  to  the  user  about 
how  he  might  generate  particular  data  elements.  The  physical  entry  of  the 
data  elements  is  presented  in  Section  IV,  SOC  Man-Machine  Interactions. 

Shaded  areas  of  the  exhibits  indicate  areas  in  the  computer  tables  the 
user  is  not  expected  to,  and,  indeed,  cannot  change. 

B . Input 

1 . Background  Data 

Blue  and  Red  Force  Elements--In  the  SOC  concept,  the  friendly 
(Blue)  and  enemy  (Red)  forces  are  assumed  to  be  composed  of  generic  force 
elements.  Exhibit  1 shows  the  setup  for  the  Blue  force  elements  and  the 
Red  force  elements.  Blue  forces  may  be  composed  of  any  subset  of  the 
following  six  generic  force  elements:  attack  aircraft  (ATTACK),  all- 
weather  attack  aircraft  ( AW- ATTACK ) , low  performance  fighter  (VF-LO) , high 
performance  fighter  (VF-HI) , Carrier  (CV) , and  support  ship.  Red  forces 
are  composed  of  eight  generic  elements:  low-performance  attack  aircraft 
(BOMBER-LO) , high-performance  attack  aircraft  (BOMBER-HI),  fighter-bomber 
(VBF) , interceptor  fighter  (VFI),  surface-to-surface  missile  (SSM-SHIP), 
airbase,  surface-to-missile  site  (SAM-SITE),  and  supply  line. 

The  generic  elements  that  are  to  make  up  the  forces  appear  in 
the  first  column  and  cannot  be  changed.  The  second  column  contains  user 
designators  as  desired.  These  designators  indicate  the  implicit  implications 
of  the  following  input  computer  tables.  Performance  and  operational  data, 
input  subsequently  for  each  element  of  those  tables,  will  be  representative 
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EXHIBIT  1 


I BLOG  FORCE  ELEMENTS  I ! RED  FORCE  ELEMENTS 

I 1 I 

I ELEMENT  I EXAMPLE  I CLASS!  I ELEMENT  1 EXAMPLE  1 CLASS 

I 1 1 1 I 1 1 

I ATTACK  | k-'IZ  \ OA  \ \ BOMBER-LO  I FARCER  A | OA 

| AN- ATT AC*  IA-6F  I OA  1 I BOHBER-HI  ISACGEP  C I OA 

| FF-LO  IF-4J  I DA  1 IYBF  ISU-7S  I OA 

IfF-BI  1F-14A  I DA  I IYFI  IPIG-21  | DA 

|Cf  I KITTY  HAVE  I OS  I ISSM-SHIP  ISS-N-3  | OS 

f SUPPORT  SHIP! DEG  LEAHY  I DS  I I AIRBASE  | OKKOD A | OS 
| | | I ISAM  SITE  | S AK-?  I DS 

| | | | | SUPPLY  LINE! AAA  I LS 

I— 1 I 


OA-OFFENSIYE  AIR 
DA-DEFENSITE  AIR 
OS-OFrENSIVE  SURFACE 
DS-DEFENSITE  SURFACE 
LS-LOGISTICS  SUPPORT 
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of  the  weapon  system  specified.  Each  generic  element  is  also  given  a 
class  designation:  offensive  air  (OA) , defensive  air  (DA),  offensive 
surface  (OS),  defensive  surface  (DS),  and  logistics  support  (LS). 


Blue  and  Red  Force  Units--In  performing  offensive  or  defensive 
missions,  certain  combinations  of  the  force  elements  are  used  in  SOC.  The 
user  can  define  a variety  of  force  units  by  specifying  that  units  be  com- 
posed of  combinations  of  the  elements  specified  in  computer  table  1,  which 
is  shown  in  Exhibit  1. 


Exhibit  2 shows  a sample  definition  of  Blue  force  units.  VFCAP, 
SUCAP,  and  DLI  are  SOC-defined  reserved  words.  Any  unit  to  be  used  as  a 
fighter  combat  air  patrol  must  be  labeled  as  type  VFCAP;  any  unit  to  serve 
as  a surface  combat  air  patrol  must  be  labeled  as  type  SUCAP;  and  any  unit 
used  as  a deck  launch  interceptor  must  be  labeled  as  type  DLI.  All  other 
units  may  be  designated  by  any  type  name  the  user  desires.  Several  differ- 
ent force  units  within  a given  type  may  be  defined  by  designating  unit 
subtypes.  Every  unit  must  be  defined  by  a type  designation.  However,  it 
is  not  necessary  for  each  unit  type  to  be  further  delineated  by  subtype. 

Two  different  units  may  have  the  same  elements  in  their  makeup  if  the  user 
intends  to  use  the  units  differently  during  the  battle  (i.e.,  the  same  air- 
craft flying  different  tactics  in  various  weather  conditions  with  varying 
weapon  loads  can  have  different  associated  engagement  statistics). 

For  each  Blue  unit  defined,  the  numbers  of  attack,  all-weather 
attack,  low  and  high  performance  fighters,  and  suppression  aircraft  must 
be  specified.  All-weather  attack  aircraft  are  used  for  suppression.  In 
addition,  several  characteristics  must  be  assigned  to  each  unit,  including: 
the  maximum  range  of  the  unit  (LONG  or  SHORT) ; the  long-range  default  force 
unit  (i.e.,  the  force  unit  subtype  to  replace  it  if  its  maximum  range 


Suppression  aircraft  are  assumed  to  be  specially  configured,  all-weather 
attack  aircraft. 
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EXHIBIT  2 


BLOB  FORCE  OBITS 


EXHIBIT  3 


RED  FORCE  UNITS 
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UNIT  CHARACTERISTICS 
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is  "SHORT"  and  it  is  assigned  a long-range  mission);  the  worst  weather 
conditions  (GOOD  or  BAD)  in  which  it  can  perform;  the  bad  weather  default 
unit  (i.e.,  the  force  unit  subtype  to  replace  it  if  the  worst  weather 
condition  in  which  it  can  perform  is  GOOD  and  it  is  assigned  a mission 
in  BAD  weather),  maximum  range  (miles)  at  which  it  can  be  detected  by 
the  enemy;  and  the  speed  (mach)  at  which  the  unit  operates.  The  default 
units  differ  only  in  subtype  from  the  original  unit.  No  default  unit 
need  be  specified.  If  no  range  is  specified,  LONG  is  assumed.  If  no 
worst  weather  is  specified,  BAD  is  assumed. 

Exhibit  3 shows  a sample  definition  of  Red  force  units.  SLI 
and  SSM  are  SOC  defined  words  reserved  for  Red  forces.  Thus,  any  Red 
unit  that  is  to  operate  as  a strip  launched  interceptor  must  be  specified 
as  type  SLI,  and  any  unit  used  to  similate  SSM  attack  must  be  specified 
as  type  SSM.  The  rest  of  computer  table  3 is  filled  in  using  the  same 
rules  described  in  relation  to  computer  table  2. 

To  arrive  at  the  unit  definitions,  listing  the  capability  of 
the  elements  is  helpful,  as  is  analyzing  their  employment  (sortie  rates). 
The  degree  of  effort  required  to  arrive  at  the  unit  definition  and  the 
composition  of  the  unit  must  be  a judgment  of  the  TFC  and  his  staff. 

These  judgments  for  the  most  part  are  influenced  by  the  defensive  strength 
of  the  threat  (e.g.,  SAMs  and  interceptors)  and  the  planned  duration,  in 
days,  of  the  friendly  strikes. 

With  regard  to  Blue,  if  the  target  is  heavily  defended  with 
enemy  SAM  batteries  and  interceptor  aircraft,  then  the  Blue  support  ele- 
ments (VF  and  AW)  could  be  strengthened  at  the  expense  of  increased  sortie 
rates  or  weakening  the  task  force  defense.  Alpha  A in  Exhibit  2 is  an 
example  of  this  stronger  unit: 

3 attack  1 AW  attack  1 VF 


14 


As  many  as  15  units  can  be  described  for  each  of  the  Blue  and 
Red  forces. 

Engagement  Statistics--Having  defined  the  force  units,  the  battle 
engagement  statistics  that  provide  the  basis  for  determining  Blue  and  Red 
losses  in  combat  must  be  specified.  The  engagement  statistics  for  Blue 
attacking  Red  are  shown  in  Exhibit  4,  and  for  Red  attacking  Blue  in  Exhibit  5. 
As  these  exhibits  indicate,  engagement  statistics  are  fairly  aggregate 
measures  of  the  battle  effectiveness  of  the  force  units  previously  defined. 
These  measures  include  the  number  of  attacking  force  units  that  can  be 
killed  by  air-to-air  and  surface-to-air  means  per  defensive  element  of  the 
force  under  attack.  A second  set  of  statistics  gives  the  number  of  the 
defending  fighters  that  can  be  killed  air-to-air  per  unit  of  attacking 
force.  The  third  set  of  statistics  gives  the  number  of  the  defending  force 
elements  that  can  be  killed  surface-to-air  per  unit  of  attacking  force  that 
penetrates  the  defenses. 

In  specifying  the  effectiveness  of  an  attacking  force  unit,  the 
synergistic  effects  of  the  various  assets  in  the  unit  (e.g.,  attack,  fighter, 
and  suppression  aircraft)  should  be  considered.  The  importance  of  such 
synergistic  effects  as  well  as  the  application  of  user  judgment  were  primary 
factors  in  the  decision  to  treat  force  assets  in  terms  of  units. 

It  is  unnecessary  for  units  appearing  in  computer  tables  2 or  3 
to  also  appear  in  computer  tables  4 or  5;  however,  any  unit  that  is  specified 
for  use  in  its  respective  operations  table  (computer  tables  11  and  12)  must 
appear  in  both  the  unit  definition  computer  table  and  engagement  statistics 
computer  table. 
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EXHIBIT  5 
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Data  that  can  be  utilized  to  support  the  input  elements  of 
computer  tables  4 and  5 include  air-to-air  exchange  ratios,  SAM  effective- 
ness data,  and  air-to-surf ace  effectiveness  data.  Examples  of  this  type 
of  data  are  illustrated  in  Table  2. 

The  data  in  Table  2 can  be  used  with  some  simple  computations 
to  fill  in  parts  of  Exhibit  4.  Air-to-air  data  are  used  in  the  VBF/VFI 
columns,  SAM  data  in  the  SAM  and  SUPPLY  LINE  columns,  and  air-to-surf ace 
data  in  the  surface  effects  columns.  The  following  numerical  examples 
use  the  data  presented  in  Table  2 to  manually  yield  the  first  row  of 
entries  in  Exhibit  4. 

AIR  TO  AIR 

It  will  take  14  Red  VBF  to  kill  1 Alpha  A unit  as  follows: 

10  VBF  to  1 VF-HI 

4 VBF  to  4 VA 

14  VBF  to  1 unit 

Therefore,  the  Blue  loss  to  1 VBF  is  said  to  be  1/14  = 0.07  unit. 

It  will  take  8 Red  VFI  to  kill  1 Alpha  A unit  as  follows: 

4 VFI  to  1 VF-HI 
4 VFI  to  4 VA 
8 VFI  to  1 unit 

Therefore,  the  Blue  loss  to  1 VFI  is  said  to  be  1/8  = 0.125  unit. 

Maximum  Red  air  losses  per  Blue  unit: 

1 VF-HI  kills  4 VBF 
4 VA  kill  4 VBF 
1 unit  kills  8 VBF 
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Table  2 


SAMPLE  ENGAGEMENT  DATA  BASE 


1.  Air-to-Air  Exchange  Ratio 


MIG-21 

MIG-19/SU-7 

BADGER 

SSM 

F-14 

1/4 

1/10 

0/4 

0/3 

A- 7 or  A-6 

1/  .67 

1/1 

0/1 

NA 

These  kills  must  be  limited  by  the  armaments  that  are  usually 
carried.  Maximum  kills  per  aircraft  are: 

F-14--4  MIG-21--1 

A7/A6--1  SU-7--1/2 


2.  SAM  Effectiveness 

These  data  can  be  taken  from  historical  attrition  figures. 
Losses  per  1000  Sorties 
AIRFIELD  ATTACK  WAR  AT  SEA  CAS/ARREC 
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3 

5 

7 

3 

3 

3.  Air-to-Surface 

These  data  can  be  taken  from  China  Lake  studies  or  Joint  Munitions 
Effectiveness  Manual  (JMEM)  and  will  depend  on  weapons  carried, 
altitude  released,  number  of  passes,  mil  accuracy  of  aircraft,  weapon 
P , and  type  of  target. 

An  example  would  be  an  A-7  loaded  with  laser-guided  bombs.  This  scores 
a 0.9  against  an  enemy  aircraft  on  the  ground.  Therefore  3 A-7s  in 
a unit  may  be  said  to  "kill"  2.7  enemy  aircraft  on  the  ground. 


1 VF-HI  kills  4 VFI 


4 VA  kill  2.7  VFI 

* 

1 unit  kills  6.7  VFI 

SAM  EFFECTIVENESS 

Blue  unit  Alpha  A 

3 x 15 

3 VA  sorties  lose  = 0.045 

1000 

1x7 

1 AW  sortie  lose  = 0.007 

1000 

Blue  units  lost  to  SAM  = 0.052 

(Blue  VF-HI  are  not  engaged) 

AI R-TO- SURFACE 

Blue  Unit  Alpha  (VF-HI  do  not  attack  ground  targets.) 

3 VA  attack  Red  aircraft  on  ground 
(with  2 LGB  (P  = 0.9)) 

Red  kills  = 3 x 0.9  = 2.7 

1 A6  attack  SAM  batteries  (site  radar) 

(with  Standard  ARM)  P = 0.9 

k 

Red  SAM  site  kill  = 1 x 0.9  = 0.9 


The  data  for  computer  table  5 are  manually  computed  in  a similar  manner 
Badger  and  VBF  bomb  loads  and  CEPs  must  be  estimated  to  give  probable 
damage  to  the  Blue  CV  and  support  ships.  Probable  damage  must  also  be 
estimated  for  the  SSM  attack.  The  Blue  VFGAP,  DLI,  and  Blue  SAM  ships 
will  operate  on  the  defensive  to  kill  those  attackers. 


Weapon  Platform  Availability--The  next  type  of  background  data 


required  is  weapon  platform  availability  statistics.  The  form  for  these 


During  an  engagement,  weighted  averages  of  the  two  maximums  are 
computed,  based  on  the  defensive  force  composition. 


% 
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data  is  shown  in  Exhibit  6.  For  each  of  the  force  elements,  normal  and 
surge  sortie  rates  and  a refuel-rearm  time  must  be  specified.  The  normal 
sortie  rate  for  a weapon  platform  is  the  average  number  of  sorties  that 
can  be  mounted  per  day  on  a sistained  basis  (usually  30  days).  The  surge 
sortie  rate  is  the  maximum  number  of  sorties  that  can  be  mounted  in  a 
24-hour  period.  The  refuel-rearm  time  is  the  minimum  time  before  a weapon 
platform  returning  from  a mission  can  be  ready  to  depart  on  another  mission. 
In  the  computational  algorithm,  the  battle  is  simulated  in  3-hour  increments. 
Thus,  the  refuel-rearm  time  is  specified  in  terms  of  the  number  of  3-hour 
time  periods.  If  a refuel-rearm  time  of  zero  is  specified  for  an  element, 
that  element  can  return  from  one  mission  at  the  beginning  of  a time  period 
and  leave  on  another  mission  in  the  same  time  period. 

Capabilities  of  Aircraft-Related  Elements--The  last  of  the  back- 
ground data  are  the  operations  and  damage  repair  capabilities  of  the  Blue 
carrier  and  Red  airbase  elements.  The  form  of  these  data  is  shown  in 
Exhibit  7.  For  various  damage  levels,  the  maximum  number  of  operations 
per  3-hour  period  and  the  maximum  damage  repair  capability  per  period  must 
be  specified  for  each  element  of  Blue  CV  and  Red  airbase. 

In  determining  the  maximum  number  of  operations  for  an  undamaged 
Blue  carrier,  the  sortie  rate  times  the  total  number  of  aircraft  aboard  is 
often  used  as  the  index  of  carrier  operational  capability.  The  question 
of  whether  to  use  a surge  rate  or  a sustained  rate  should  be  considered; 
it  may  depend  on  the  estimate  of  the  length  of  the  operation  (or  war).  A 
sustained  rate  could  be  used  for  campaigns  of  one  or  more  months,  but  a 
surge  rate  is  particularly  appropriate  for  use  in  analyses  involving  time- 
sensitive  targets  such  as  the  0NR0DA  scenario.  Damage  parameters  can 
be  developed  with  the  kind  of  data  found  in  the  David  Taylor  Model  Basin 
Technical  Note  SML-740-37,  "The  Operational  Capabilities  of  a Forrestal- 
Class  Aircraft  Carrier  After  Successful  Missile  Hits,"  F.  Weinberger 
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EXHIBIT  6 
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EXHIBIT  7 


I CAPABILITIES  OF  A/C  RELATED  ELEMENTS  | 

j — — — j 

I I MAX  OPERATIONS! MAX  DMGS  REPAIR! 


DAMAGE! 

LEVEL)* 

1 

PER  PERIOD  | 
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CV  1 AIRBASE! 
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01 

01 

0.1  1 

2251 
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.07| 

.07| 

0.2  I 

2001 

2201 
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.121 

0.3  | 

1251 

200| 

.151 

• 15| 

0.4  1 

1001 

1751 

.161 

.16| 

0.5  I 

751 

1501 

.151 

.151 

0.6  I 

24| 

24| 

.121 

.121 

0.7  | 
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.07] 

• 07| 

0.8  1 

01 

01 

01 

01 

0.9  | 

01 

01 

01 

01 

1.0  I 

01 

01 

01 

01 

and  R.  Santa  Maria  (March  1965).  However,  the  numbers  used  for  computer 
table  7 shown  in  Exhibit  7 for  "MAX  DAMAGE  REPAIR  PER  PERIOD"  could  be 
the  TFC's  estimates  of  the  capability  of  his  damage  control  units  aboard 
a specific  carrier.  That  is,  for  207.  damage  to  a carrier  the  repair 
crews  might  repair  12/20  of  the  damage  in  a 3 hour  period. 

This  concludes  the  background  data  inputs.  These  data  are 
generally  derived  by  aggregating  more  detailed  data  found  in  Navy  data 
bases  and  publications.  As  indicated  in  the  description  above,  these 
data  are  fairly  static,  depending  on  the  weapon  systems  and  operating 
doctrine  involved. 

2.  Scenario  Data 

Force  Complexes--A  concept  employed  in  defining  scenario  data 
is  that  of  force  complexes.  Force  complexes  are  groupings  of  Blue  or  Red 
force  elements.  Each  force  can  have  as  many  as  8 complexes.  The  forms 
for  the  data  used  to  define  complexes  are  shown  in  Exhibits  8 and  9.  As 
seen  from  these  exhibits,  a complex  is  defined  by  specifying  the  numbers 
of  the  various  force  elements  associated  with  it,  and  the  resources  for 
the  defense  of  a complex  are  assumed  to  be  drawn  from  these  elements. 
Similarly,  resources  for  offensive  actions  are  assumed  to  be  drawn  from 
the  elements  of  a particular  complex,  with  another  complex  being  the  target 
of  the  action.  Complexes  are  defined  as  collections  of  elements,  which  are 
defined  in  computer  table  1.  Units  are  composed  of  collections  of  elements 
taken  from  the  complexes  they  operate  from.  For  all  Blue  complexes  with 
aviation  assets,  including  land  bases,  at  least  one  unit  of  CV  must  be 
specified  to  guarantee  operational  capabilities  as  noted  in  computer  table  7. 
Conversely,  all  Red  complexes  having  aviation  assets,  including  ships,  must 
have  at  least  one  unit  of  air  base. 
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EXHIBIT  8 
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EXHIBIT  9 
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In  addition  to  physical  location,  one  may  define  more  than  one  Blue 
or  Red  complex  for  a number  of  reasons.  For  example,  Red  and  Blue  forces  may 
be  composed  of  several  allies  who  act  independently,  or  several  groups  of 
force  elements  may  initiate  or  be  the  targets  of  attacks  independently  of 
each  other.  For  illustration,  assume  that  Red  and  Orange  are  allies,  as 
is  the  case  of  the  problem  scenario,  with  Orange  having  airbases  on  the 
island  (ONRODA)  and  on  the  mainland.  These  two  airbases  may  be  called 
ONRAF  and  ORGAF.  Suppose  further  that  Red  has  a surface  missile  ship  in 
the  area.  This  ship  can  be  designated  as  a third  Red  complex,  REDGA.  If 
Blue  is  operating  a carrier  task  force  against  Orange,  it  might  be  designated 
as  a Blue  complex  called  CTFRC. 

In  addition  to  numbers  of  elements  at  a complex,  several  character- 
istics must  be  specified.  For  Blue  complexes  the  time  (minutes)  between 
successive  DLI  launches  must  be  given.  For  Red  complexes  the  time  (minutes) 
between  successive  SLI  launches  must  be  given.  The  surveillance  range 
factor,  which  multiplies  the  maximum  detection  range  of  incoming  enemy 
force  units  against  the  complex,  must  be  given.  This  factor  is  meant  to 
reflect  individual  complex  surveillance  capabilities.  For  example,  in 
Exhibit  2 the  maximum  detection  range  for  ALPHA  A unit  is  given  as  100  nmi, 
while  in  Exhibit  9 the  surveillance  range  factor  for  ONRAF  is  given  as  1. 

This  means  that  all  ALPHA  A units  attacking  ONRAF  will  be  detected  at  100 
nmi.  The  number  of  sheltered  aircraft  assigned  to  each  complex  must  be 
specified.  Sheltered  aircraft  are  not  subject  to  air-to-surf ace  attrition 
by  enemy  raids.  If  a complex,  such  as  a carrier,  operates  in  a replenish- 
ment cycle,  the  length  of  the  cycle  is  specified,  in  days  as  well  as  the 
number  of  days  of  the  cycle  during  which  replenishment  is  conducted.  The 
maximum  percentage  of  normal  operations  that  can  be  conducted  during 
replenishment  is  also  specified.  Operations  during  replenishment  can  be 
restricted  to  defensive  operations  only,  by  including  a "D"  after  the  per- 
centage of  normal  operations. 
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EXHIBIT  10 


I MISCELLANEOUS  INPUTS  I 

j 1 

I MAXIMUM  NUMBER  OF  DAYS  THE  EATTLE  IS  TO  RUNCLESS  THAN  II)  I l"l 

I MISSION  TIMS  FOR  LONG  RANGE  MISSIONS(NO.  OF  3HR  TIME  STEPS)  I 01 

I MISSION  TIME  FOR  SHORT  RANGE  MISSIONS(NO.  OF  3HR  TIME  STFPS)  I 0| 

I NO. OF  OPERATIONS  PER  AIRCRAFT  LANCING  I ?l 

1 NO. OF  OPERATIONS  PER  AIRCRAFT  LAUNCH  I II 

I FRACTION  OF  MAX  UNIT  DETECTION  RANGE  REALIZED  IN  BAD  HEATHER  I -FI 
I DELAY  IN  MINUTES  BEFORE  FIRST  SLI/DLI  CAN  BE  LAUNCHED  I ?l 

IDO  YOU  WANT  LONG  RANGE  FORCE  UNIT  DEFAULT  IN  EFFFCT(l=YfcS,0=NO)  I II 

IDO  YOn  WANT  BAD  WSATHEP  FORCE  UNIT  DEFAULT  IN  EFFECT! 1=YES, 0=N3) I II 
I STOP  BTLE  WHEN  ALL  MISSIONS  CQMPLETE(ELSE  OFFENSE  ONLY) (1  = Y,0=N) I Cl 
I 1 
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Miscellaneous  Input--In  addition  to  the  complex  definitions, 
scenario  data  include  several  miscellaneous  inputs.  These  inputs,  which 
are  shown  in  Exhibit  10  are  fairly  self-explanatory.  A mission  time  of 
"0"  indicates  that  aircraft  will  be  recovered  in  the  same  3-hour  period 
in  which  they  are  launched. 

The  bottom  line  refers  to  a stop  criterion  for  the  battle.  If 
a "1"  is  entered,  all  missions  including  defensive  missions  must  go  to 
their  completion  by  either  side  to  stop  the  battle.  If  a "0"  is  entered, 
only  offensive  missions,  as  specified  in  the  respective  operations  plan 
computer  tables  must  be  completed.  In  either  case  a maximum  of  10  days 
of  action  is  generated.  Defensive  missions  are  those  that  employ  VFCAP, 

DLI , or  SUCAP  units  for  Blue  and  SLI  units  for  Red. 

3.  COA  Data 

— 

COA  data  are  expected  to  be  of  major  concern  to  the  user  in 
solving  decision  problems.  These  data  provide  the  flexibility  for  describ- 
ing various  COAs  such  as  timing,  use  of  assets,  force  position,  weather, 
and  threat  action. 

Operations  Plans--The  timing,  use  of  assets,  and  threat  action 
are  specified  in  the  Blue  and  Red  operations  plan  computer  tables,  shown 
in  Exhibits  11  and  12.  In  the  operations  plan  table,  each  offensive  and 
defensive  mission  is  defined  by  specifying  a mission  name,  priority,  origin 
complex,  target  complex,  start  and  stop  mission  times,  type  of  unit, 
desired  number  of  units,  minimum  number  of  units,  and  number  of  ready  units. 
Each  force  can  have  as  many  as  17  missions. 

The  mission  name  is  arbitrarily  assigned  to  identify  each  mission 
and  may  be  the  same  as  a unit.  The  priority  of  the  mission  indicates  the 
preferred  order  for  assigning  elements  to  perform  missions,  with  priority  1 
missions  allocated  resources  first.  Missions  may  be  assigned  priorities 
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0 through  9.  Priority  1 and  2 missions  that  cannot  be  filled  in  a 
particular  period  are  rescheduled  for  a later  period  the  same  day.  No 
missions  are  rescheduled  for  following  days,  however.  No  mission  having 
a priority  of  3 or  greater  will  be  rescheduled  if  unfilled.  If  a mission 
has  a priority  0,  it  is  not  scheduled.  Thus,  assigning  a mission  a priority 
of  0 is  a convenient  way  to  eliminate  a mission  for  a particular  run. 

The  start  and  stop  times  for  a mission  can  be  specified  in 
several  ways.  One  way  is  to  enter  DAY,  followed  by  the  number  of  the 
day  in  the  battle  when  the  subject  mission  is  to  be  initiated  or  terminated. 
A second  way  is  to  enter  END,  followed  by  the  name  of  a previous  mission. 

In  this  case,  for  start  times,  the  mission  will  begin  the  day  after  the 
previous  mission  terminates.  When  END  is  used  as  a stop  time,  the  mission 
will  be  terminated  the  day  the  previous  mission  is  terminated.  A third 
way  of  designating  start  and  stop  times  is  to  enter  DOA,  DDA,  DOS,  DDS, 
or  DLS  (meaning  destroy  offensive  air,  destroy  defensive  air,  destroy 
offensive  surface,  destroy  defensive  surface,  or  destroy  logistics  support, 
respectively),  and  then  to  enter  the  level  of  destruction  of  the  associated 
elements  at  the  target  complex  desired  before  the  mission  is  to  be  initiated 
or  terminated.  For  example,  the  DDA75  stop  time  for  mission  STRK3  in 
Exhibit  11  means  that  mission  STRK3  is  to  be  terminated  when  757.  of  the 
defensive  air  elements  at  the  target  complex,  ONRAF,  have  been  destroyed, 

A blank  entry  for  a stop  time  indicates  that  the  mission  is  to  be  continued 
indefinitely. 

Each  mission  must  have  an  origin  complex  specified  from  which 
all  units  that  comprise  the  mission  must  be  formed.  All  offensive  missions 
must  be  assigned  a target  complex.  A target  complex  needs  be  assigned 
only  to  those  defensive  missions  with  a start  or  stop  time  given  as  one 
of  the  following  contingencies:  DOA,  DDA,  DOS,  DDS,  or  DLS.  The  target 
complex  specified  for  a defensive  mission  refers  to  the  complex  to  which 
the  start  or  stop  contingency  applies.  The  complexes  named  as  the  origin 
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and  target  of  a mission  must  be  defined  in  the  scenario  data  (computer 
tables  8 and  9). 


For  computing  battle  results,  the  day  is  divided  into  eight, 

3-hour  periods.  For  mission  times,  the  user  specifies  the  period  in 
which  each  mission  is  to  be  performed.  The  type  and  subtype  of  unit  that 
is  to  perform  each  mission  must  also  be  specified  by  name.  Force  unit 
names  must  have  been  defined  in  the  background  data  (in  both  force  unit 
definition  and  engagement  statistics  computer  tables).  The  desired  units 
indicate  the  number  of  units  the  user  desires  to  have  assigned  at  each 
repetition  of  the  mission.  The  minimum  number  of  units  designates  the 
smallest  number  of  force  units  to  be  assigned  at  each  repetition  of  the 
mission.  If  resources  are  insufficient  for  assigning  the  minimum  number 
of  units  to  a mission,  the  mission  is  not  flown  during  that  time  step. 

Ready  units,  which  are  used  for  defensive  missions,  are  those  units  reserved 
to  replace  resources  that  become  exhausted  during  a period  such  as  in  DLI 
or  VFCAP. 


Force  Position  and  Weather--COA  data  that  indicate  force  position 
and  weather  parameters  are  provided  in  computer  tables  in  the  form  shown 
in  Exhibits  13  and  14,  respectively.  The  relative  position  (LONG  or  SHORT) 
between  each  pair  of  Red  and  Blue  complexes  must  be  specified.  I f no 
relative  position  is  specified,  LONG  is  assumed.  The  use  of  (LONG  or  SHORT) 
relative  positions  is  an  option  to  allow  the  attacking  TFC  to  employ  his 
forces  to  fullest  advantage.  If  the  TFC  (user)  is  attacking  an  enemy  air- 
base, he  may  launch  his  attack  from  a LONG  position  in  order  to  use  his 
aircraft  range  advantage  and  decrease  the  threat  against  him  by  any  lesser 
range  enemy  aircraft. 

The  days  of  battle  when  weather  (GOOD  or  BAD)  changes  occur  are 
specified  in  computer  table  14.  The  weather  remains  the  same  between  days 
of  change  and  is  assumed  to  be  GOOD  if  no  weather  is  otherwise  specified. 

If  one  or  more  days  of  battle  are  changed  to  BAD  by  the  TFC,  alternate 
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force  units  are  employed,  thereby  allowing  the  TFC  to  examine  bad 
weather  contingencies. 

C.  Output 

Three  types  of  battle  outcomes  are  generated  by  SOC:  mission 
accomplishment  results,  battle  attrition  results,  and  an  aircraft  expend- 
iture summary.  Blue  and  Red  mission  results  are  given  in  Exhibits  15  and 
16,  and  basically  show  the  operations  plans  specified  by  the  user.  The 
start  and  stop  times,  which  became  activated  because  of  the  termination 
of  missions  or  destruction  of  targets,  are  displayed  by  day  of  occurrence. 

Otherwise,  the  data  element  does  not  change.  The  total  number  of  units 
requested  for  each  mission  during  the  battle  is  shown,  together  with  units 
actually  engaged.  If  a default  unit  is  activated,  the  number  of  units 
requested  and  engaged  contributes  to  those  statistics.  As  with  all  the 
output  computer  tables,  a user-supplied  run  identification  (i.e.,  ONRODA) 
is  printed  out  along  with  the  length  of  the  battle  (i.e.,  2 days). 

Blue  and  Red  battle  attrition  results  are  shown  in  Exhibits  17  and  18. 

For  each  complex,  the  number  of  elements  of  each  type  attrited,  together 
with  the  total  elements  assigned,  is  shown.  The  number  of  airbase  and  CV 
elements  at  a complex  shown  as  lost  does  not  include  those  damaged  and  sub- 
sequently repaired. 

An  aircraft  expenditure  summary  is  also  generated  as  shown  in  Exhibit  19. 

The  daily  cumulative  expenditure  of  Blue  aviation  sorties  and  aircraft 
attrition  due  to  air-to-air,  ground-to-air  (SAM),  and  air-to-ground  (enemy 
attack)  engagements  is  shown.  Red  is  summarized  by  offensive  and  defensive 
aircraft  categories  as  categorized  by  computer  table  1.  The  final  cumula- 
tive attrition  results  should  correlate  with  computer  tables  17  and  18.  In 
practice,  however,  they  may  deviate  slightly  because  of  round  off  error  in 
computer  table  19.  Thus,  for  example  we  see  a total  of  5 Blue  AW  losses 
in  Exhibit  19  and  6 Blue  AW  losses  in  Exhibit  17. 
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EXHIBIT  15 
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EXHIBIT  16 
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Ill  SOC  BATTLE  LOGIC 

A.  General  Description 

The  logic  in  SOC's  computational  algorithm  is  straightforward.  The 
algorithm  basically  carries  out  the  operations  plans  specified  in  the  COA 
data,  using  the  scenario  and  background  data  for  information  on  force  com- 
position, effectiveness,  and  availability.  Numerical  computations  are  at 
the  level  of  aggregation  of  the  data  in  the  aggregate  data  base,  Thus, 
credible  estimates  of  battle  outcomes,  at  the  level  of  concern  of  the  user, 

1 

are  generated. 

A macroflow  chart  of  the  SOC  algorithm  is  shown  in  Figure  2.  Each 
day  of  the  battle  is  simulated  successively.  For  each  day,  the  days 
missions  are  scheduled  in  advance.  The  activities  for  each  time  step 
of  the  day  are  then  performed.  In  each  time  step,  first  the  schedule  is 
modified  in  regard  to  past  action  (i.e.,  aircraft  loss).  Next,  aircraft 
returning  from  missions  begun  in  previous  time  steps  are  recovered.  After 
this  recovery  has  taken  place,  the  aircraft  to  be  used  in  missions  begun 
during  the  current  time  step  are  launched.  Next,  forces  engage  followed 
by  the  recovery  of  surviving  aircraft  that  performed  missions  during  the 
current  time  step.  After  the  day's  activities  the  algorithm  either  ends 
or  the  next  day's  activities  are  initiated. 

B.  NEWRUN 

At  the  beginning  of  each  run  an  initialization  process  takes  place. 

After  this  initialization  has  taken  place,  each  day  of  the  battle  is 
simulated. 
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INITIALIZE  RUN 


c. 


NEWDAY 


At  the  beginning  of  each  new  day,  initialization  for  the  day  takes 
place  and  the  live  and  killed  elements  at  each  complex  are  accounted  for. 

In  addition,  mission  start  and  stop  times  are  updated.  Depending  on  how 
the  start  times  are  specified  in  the  input  tables,  mission  start  times 
remain  the  same,  are  set  to  the  day  following  the  completion  of  a previous 
mission,  or  are  assigned  to  the  day  after  a specified  destruction  level 
has  been  reached  at  a given  complex.  Likewise,  depending  on  information 
in  the  input  tables,  stop  times  remain  the  same,  are  set  to  the  day  a 
previous  mission  ends,  or  are  assigned  to  the  day  when  a specified  destruc- 
tion level  is  reached  at  a given  complex. 

D.  SCHEDULE 

Each  day  is  broken  into  eight  3-hour  time  periods  that  are  sequentially 
simulated.  At  the  beginning  of  each  new  day,  the  day's  missions  for  both 
Blue  and  Red  forces  are  scheduled.  A mission  is  not  scheduled  if  the  current 
day  precedes  the  start  date  of  a mission  or  occurs  after  the  stop  date  of 
the  mission.  If  a mission  is  assigned  a priority  of  zero  or  there  is  less 
than  1 unit  requested  by  a mission,  the  mission  is  not  scheduled.  If  a 
complex  is  designated  as  able  to  perform  only  defensive  missions  during 
replenishment  and  is  undergoing  replenishment  during  the  current  days,  no 
offensive  missions  originating  from  that  complex  are  scheduled.  Note  that 
missions  using  type  SUCAP,  VFCAP,  or  DLI  units  for  Blue  or  SLI  units  for 
Red  are  defensive  missions.  All  other  type  missions  are  offensive  missions. 

Under  poor  weather  conditions,  any  mission  requesting  good  weather 
units,  for  which  no  bad  weather  default  units  are  specified,  is  not  scheduled. 
Similarly,  any  long-range  mission  that  requests  short-range  units  that  have 
no  long-range  default  units  specified,  is  not  scheduled.  If  a long-range 
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mission  is  requested  in  bad  weather,  a long-range  poor-weather  unit  must 
be  specified  in  the  input  table  as  able  to  perform  the  mission;  otherwise 
the  mission  is  cancelled. 


At  the  beginning  of  each  time  step  the  ability  of  each  complex  to 
perform  operations  is  increased  according  to  the  repairs  that  can  be  made 
in  one  time  period.  The  level  of  operation  of  each  complex  can  never  be 
brought  above  the  maximum  capacity  specified  in  the  input  tables.  Addition- 
ally, the  number  of  elements  available  at  each  complex  is  increased  by 
making  elements  available,  that  have  been  rearmed  and  refueled. 

With  each  time  step,  the  schedule  of  missions  is  modified.  Priority  1 
and  2 missions  unfilled  in  the  previous  time  step  of  the  current  day  are 
rescheduled  for  the  current  time  step,  provided  an  identical  mission  is  not 
already  scheduled.  No  rescheduling  of  missions  from  previous  days  occurs. 

Once  all  missions  for  the  remainder  of  the  day  have  been  updated,  a 
check  is  made  to  determine  if  sortie  rates  will  be  exceeded.  The  missions 
are  checked  in  order  of  priority,  with  priority  1 missions  checked  first. 
Missions  of  equal  priority  are  checked  starting  with  the  current  time  step 
and  proceeding  sequentially  throughout  the  day.  Missions  of  the  same 
priority,  occuring  during  the  same  time  step,  are  checked  according  to  the 
order  they  occur  in  the  operation  plan  tables.  Priority  1 missions  will 
be  cancelled  only  if  the  30-day  maximum  sortie  rate  is  predicted  to  be 
exceeded.  Priority  2 missions  will  be  cancelled  for  the  same  reason  and 
also  if  the  surge  sortie  rate  is  predicted  to  be  exceeded.  Priority  3 
through  9 missions  will  be  cancelled  for  the  same  reasons  and  if  the  normal 
sortie  rate  is  estimated  to  be  exceeded.  Note  that  any  mission  cancelled 
at  this  point  is  not  rescheduled  and  that  each  mission  checked  adds  to  the 
estimated  number  of  sorties  for  the  aircraft  involved.  Thus,  if  priority 
1 and  2 missions  exceed  the  normal  sortie  rate,  but  not  the  surge  sortie 
rate  of  an  aircraft,  those  missions  will  remain  scheduled.  However,  all 
missions  of  priorities  3 through  9 using  that  type  of  aircraft  that  day 


will  be  cancelled. 
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E.  RECOVER 

Once  desired  missions  for  both  Blue  and  Red  have  been  scheduled  for 
the  current  time  period,  aircraft  at  all  complexes  are  recovered  one  at 
a time  from  previous  missions  without  preference  for  aircraft  type  or 
mission.  When  the  number  of  operations  available  at  a complex  is  reached 
recovery  ceases,  and  unrecovered  aircraft  wait  until  the  next  step  to  be 
recovered. 

F.  LAUNCH 

After  the  recovery  of  aircraft  has  taken  place,  an  attempt  to  fill 
missions  and  launch  aircraft  is  made.  Missions  are  filled  in  order  of 

priority.  Missions  of  the  same  priority  are  filled  in  the  order  they 

appear  in  the  operation  plans  table.  Each  mission  is  assigned  as  many 
requested  units  as  possible,  within  the  maximum  requested,  subject  to 
unit  availability,  the  availability  of  launch  operations,  and  sortie 
restrictions.  Priority  1 and  2 missions  can  be  flown,  provided  the  surge 
sortie  rate  is  not  exceeded.  Priority  3 through  9 missions  can  be  flown 
only  if  the  normal  sortie  rate  is  not  exceeded.  Under  no  circumstances 
can  the  30-day  sortie  rate  be  exceeded. 

A mission  is  flown  only  if  the  minimum  number  of  specified  units  can 
be  assigned  to  it.  A mission  that  requests  ready  units  (i.e.,  units 
reserved  for  launch  as  needed  for  replacements  to  a mission  such  as  DLI) 
is  assigned  as  many  ready  units  as  requested  or  possible  if  the  mission 

has  enough  aircraft  assigned  to  it  to  be  flown.  A mission  need  not  have 

any  ready  units  assigned  to  it  to  be  flown.  Aircraft  assigned  a ready 
status  are  unavailable  for  other  missions.  It  is  assumed  that  all  air- 
craft assigned  to  missions  in  a given  period  are  launched  at  the  same 
time. 
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G. 


ENGAGE 


The  battle  losses  incurred  when  one  side  strikes  the  other  are  com- 
puted by  using  the  engagement  statistics  provided  in  the  SOC  aggregate 
data  base.  The  aircraft  or  surface-to-surface  missiles  of  an  incoming 
strike  are  subject  of  attrition  by  air  and  surface  defenses  before  they 
can  inflict  air-to-surf ace  damage.  The  defending  units  are  those  associated 
with  the  target  complex  of  the  strike. 

Offensive  strikes  are  considered  one  at  a time.  First,  Blue  strikes 
are  considered  according  to  the  order  they  appear  in  the  operation  plans 
table.  Next,  each  Red  strike  is  considered  according  to  the  order  in  Red's 
operation  plans  table. 

An  incoming  strike  is  first  engaged  by  any  airborne  VFCAP  at  the 
target  complex.  Then,  any  DLI  or  SLI  may  engage  the  strike.  Ready  units 
are  used  to  refill  the  VFCAP  and  DLI  or  SLI  positions  vacated  by  the 
engaging  defenders.  The  refilled  VFCAP  are  then  used  to  attack  the  incom- 
ing strike  with  subsequent  defense  by  the  refilled  DLI  or  SLI.  This  refill- 
ing and  attacking  sequence  continues.  There  are,  however,  constraints  on 
the  use  of  the  air  defenders  assigned  to  VFCAP,  DLI,  and  SLI  missions  to 
attack  incoming  strikes.  First,  no  more  air  defenders  are  engaged  than 
necessary  to  annihilate  an  incoming  raid.  Second--based  on  the  range  at 
which  the  incoming  strike  force  is  detected,  the  speed  of  the  incoming 
strike,  the  delay  until  the  first  defender  (on  the  deck  or  ground)  can  be 
launched,  and  the  time  between  launches--,  the  number  of  defenders  that 
can  be  engaged  with  the  strike  before  its  attack  on  the  target  complex  is 
limited. 

The  losses  incurred  by  the  incoming  strike  and  the  air  defenders 
during  the  air-to-air  combat  are  based  on  the  engagement  statistics 
supplied  in  computer  tables  4 and  5.  The  losses  are  calculated  by  post- 
ulating a simultaneous  exchange  between  the  forces.  These  losses  are 
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assumed  to  be  a linear  function  of  the  number  of  force  units  in  the  strike 
and  the  number  of  defenders  engaging  the  strike. 

After  the  air-to-air  battle,  any  surface-to-air  defensive  elements 
are  assumed  to  have  a shot  at  the  remaining  attackers.  Surface-to-air 
capabilities  may  be  specified  by  the  user  for  Blue  carriers  and  support 
ships  and  for  Red  SAM-sites  and  supply  lines. 

The  portion  of  strike  force  that  penetrates  the  defenses  inflicts 
air-to-surface  losses  on  the  elements  at  the  target  complex.  Only  the 
parked,  unsheltered  aircraft  (as  specified  by  the  user  in  the  scenario 
data)  are  subject  to  destruction.  The  number  of  parked  aircraft  of  each 
type  that  is  destroyed  is  proportional  to  the  ratio  of  parked  aircraft 
of  each  type  to  the  total  parked  aircraft. 

Some  logic  is  peculiar  to  the  Red  SSM  attack.  If  an  SSM  attack  is 
imminent,  the  program  assumes  that  airborne  SUCAP  (associated  with  the 
Blue  complex  to  be  attacked)  attack  the  SSM-ships  from  which  the  SSM 
attack  is  to  be  mounted.  Only  the  portion  of  the  ships  that  survive 
this  attack  is  assumed  to  launch  their  missiles  (at  a rate  of  8 missiles 
per  undamaged  ship).  Ready  units  associated  with  a SUCAP  mission  are 
launched  and  attack  the  remaining  SSM-ships  after  the  ship's  missiles 
have  been  launched.  All  attacking  SUCAP  are  subject  to  attrition  by  any 
air-to-air  and  surface-to-air  defenses  associated  with  the  force  complex 
to  which  the  SSM-ships  belong.  The  missiles  launched  are  subject  to 
air-to-air  and  surface-to-air  attrition  by  the  defenses  of  the  Blue  com- 
plex under  attack.  The  sequencing  of  the  engagements  of  the  SUCAP  and 
SSM  missiles  with  air  and  ground  defenses  and  of  the  air-to-surface  attacks 
is  treated  as  previously  described  for  offensive  strikes. 

The  aircraft,  both  defensive  and  offensive,  that  survive  are  scheduled 
to  land  either  in  the  current  time  step  or  some  future  time  step.  The 
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scheduled  landing  at  the  home  complex  is  based  on  the  user-specified 

k 

(computer  table  10)  mission  times  for  LONG  and  SHORT  missions.  VFCAP, 
DLI,  and  SLI  are  scheduled  to  land  at  the  end  of  the  time  step  in  which 
they  were  launched.  Aircraft  ready  to  land  are  recovered  at  the  end  of 
each  time  step,  subject  to  the  operations  available  at  carriers  and  air- 
bases. 

All  attrition  computations  are  assumed  to  be  linear  functions  of  the 
numbers  of  units  of  force  elements  engaging.  The  losses  at  each  of  the 
force  elements  at  each  of  the  force  complexes  are  computed  and  used  to 
maintain  an  updated  inventory  of  Blue  and  Red  assets.  These  results  are 
needed  to  determine  the  capability  to  perform  future  missions;  they  are 
also  presented  to  the  user  in  the  battle  results  computer  tables. 


If  aircraft  are  scheduled  to  land  at  the  end  of  the  time  step  in  which 
they  are  launched,  the  mission  time  is  specified  as  zero  time  steps. 


,1. 


A.... 
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IV  SOC  MAN-MACHINE  INTERACTION 


A.  Interactive  Commands 

Given  a computer  terminal  with  a CRT  and  a printer,  the  communicator 
portion  of  SOC  allows  the  user  to  display  and  modify  all  the  data  in  the 
data  base,  exercise  the  computational  algorithm,  and  obtain  printed  copy 

l 

of  any  of  the  data  and  results.  The  communicator  commands  follow: 

1.  LOAD  INPUT 

This  command  is  used  to  retrieve  a data  base  that  has  previously 
been  created  and  saved. 

2.  SAVE  INPUT 

This  command  saves  the  current  data  for  future  use. 

3.  DISPLAY/INPUT  TABLE 

This  command  displays  a particular  table  with  its  associated 
data,  if  any.  Once  a table  is  displayed,  it  may  be  edited.  During 
editing,  either  current  data  may  be  changed,  or  a new  data  base  can  be 
created  if  the  current  data  base  is  empty. 

4.  PRINT  TABLE 

This  command  is  used  to  print  tables  on  a line  printer. 

5.  RUN 

This  command  causes  the  execution  of  the  battle  logic  using  the 
currently  loaded  data  base. 
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6. 


STOP 


This  command  terminates  SOC  and  returns  control  to  the  opera- 
ting system. 

7.  LIST  TABLES 

This  command  list  the  titles  of  all  the  tables  on  the  CRT  screen. 

8.  EXPLAIN  ABOVE  FUNCTIONS 

This  command  provides  the  user  with  explanations  of  each  of  the 
other  commands. 

B . Command  Use 

A typical  session  for  using  SOC  will  begin  by  turning  on  the  console 
and  following  a standard  procedure  for  getting  on-line  to  the  computer. 

When  SOC  is  loaded  and  entered,  queries  and  instructions  that  require  user 
interaction  will  appear  on  the  screen.  The  questions  and  instructions 
posed  to  the  user  are  self-explanatory.  They  begin  with  a choice  of  a 
CRT  that  SOC  runs  with.  The  user  corresponds  with  a number  as  indicated 
to  show  the  terminal  type  he  is  using.  Only  specified  types  will  work 
with  SOC.  Quickly  thereafter  the  user  is  led  to  the  function  menu  that 
presents  the  8 commands  above  for  him  to  execute. 

If  the  user  wishes  to  refresh  his  memory,  he  can  issue  the  EXPLAIN 
ABOVE  FUNCTIONS  command  and  receive  a brief  description  of  SOC  communicator 
functions  on  the  console.  The  user  then  depresses  the  space  bar  to  return 
to  the  function  menu.  The  user  can  then  ask  for  a list  of  the  titles  of 
the  aggregate  data  base  computer  tables  by  issuing  the  LIST  TABLES  command. 
If  background,  scenario,  or  COA  data  that  were  used  and  saved  in  a previous 
session,  are  of  interest,  they  can  be  retrieved  and  placed  in  the  current 
aggregate  data  base  by  issuing  the  LOAD  INPUT  command. 
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If  a new  data  base  is  desired,  no  old  data  base  will  be  loaded  but 


the  DISPLAY/INPUT  TABLE  command  should  be  repeated  until  all  14  input 
tables  are  established.  This  must  be  done  sequentially  from  table  1 to 
table  14  so  that  error  routines  can  be  established  to  check  for  logical 
consistency.  When  the  user  executes  this  command,  he  is  queried  for  the 
table  of  interest.  When  a table  number  is  specified,  the  table  is  displayed 
on  the  screen.  If  there  is  a current  data  base,  the  information  associated 
with  the  specified  table  is  displayed  in  addition  to  the  table  form.  The 
user  can  now  enter  new  table  data  or  modify  the  existing  table. 

Data  are  changed  or  entered  by  moving  the  cursor  to  the  appropriate 
field,  using  tab,  carriage  return,  and  cursor  control  keys,  and  then  enter- 
ing the  new  data.  After  a table  has  been  filled  with  new  data,  the  user 
hits  the  transmit  key  (or  combination  of  the  CONTROL  and  Q keys  if  no  such 
key  exists)  to  initiate  error  checking.  If  no  errors  occur,  the  table  is 
entered  into  the  current  data  base  and  the  user  is  returned  to  the  function 
menu.  If  errors  occur,  indications  are  given  and  the  table  is  redisplayed 
and  the  editing  process  repeated.  If  during  the  editing  process  the  user 
wishes  to  revert  to  the  original  table  rather  than  continue  editing  or  he 
merely  wished  to  display  the  table,  he  hits  the  transmit  key  immediately 
after  the  table  is  displayed  and  he  is  then  returned  to  the  function  menu. 
Once  a data  base  has  been  established  as  above,  or  loaded  using  the  LOAD 
INPUT  command,  it  can  be  edited  in  random  order. 

When  the  current  data  base  properly  describes  a COA  that  the  user 
wants  to  evaluate,  the  RUN  command  is  issued.  On  executing  this  command, 
the  algorithm  computes  the  battle  results  using  the  data  in  the  current 
first  14  computer  tables  of  the  aggregate  data  base  and  places  the  results 
in  the  computer  tables  15  through  19.  Using  the  DISPLAY/INPUT  TABLE 
command,  the  user  can  now  have  the  results  displayed  on  the  console.  Print- 
outs (hard  copy)  of  any  of  the  data  or  results  tables  can  be  obtained  using 
the  PRINT  TABLE  command. 


45 


1 


The  user  may  evaluate  a series  of  alternative  COAs  by  sequentially 
modifying  data  tables,  running  the  algorithm,  and  then  displaying  and/or 
printing  the  results.  After  all  COAs  have  been  evaluated,  the  user  may 
issue  the  SAVE  INPUT  command.  This  will  transfer  the  current  contents  of 
the  aggregate  data  base  to  computer  storage  for  future  use.  The  STOP 
command  terminates  the  session. 
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ONRODA  PROBLEM  SCENARIO 
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Appendix  A 

ONRODA  PROBLEM  SCENARIO 

The  problem  scenario  and  resulting  concept  of  operations  described 
in  this  appendix  have  been  extracted  from  the  following  document:  "ONRODA 
Warfare  Scenario,"  Research  Memorandum  NWRC-RM-83,  Stanford  Research 
Institute  (June  1975).  This  document  can  be  used  to  augment  the  informa- 
tion presented  in  this  appendix  if  it  is  desired;  however,  it  is  broader 
in  its  scope  and  a few  of  its  details  are  different.  Every  effort  has 
been  made  in  this  appendix  to  present  the  major  elements  of  the  problem 
as  simply  as  possible.  A synopsis  of  the  scenario  follows. 

Synopsis 

Grey  and  Orange  (see  Figure  A-l)  have  been  ideologically  opposed  and 
hostile  toward  each  other  for  a long  time.  Orange  has  supported  rebel 
activities  in  Grey.  ONRODA  Island  has  been  politically  aligned  with  Grey 
but  has  a significant  segment  of  Orange  sympathizers.  Grey's  military 
capability  has  diminished  and  Orange  responds  by  more  active  support  of 
the  rebels  in  Grey  and  by  capturing  ONRODA  Island.  Blue  has  previously 
indicated  that  this  was  an  unacceptable  action,  supported  Grey's  appeal 
to  the  UN,  and  asked  for  congressional  approval  for  unilateral  support 
of  Grey  if  favorable  UN  reaction  was  not  immediate.  At  the  same  time. 

Blue  orders  the  fleet  to  prepare  to  stablize  the  military  situation  in 
the  area  and  prevent  Orange  from  using  ONRODA  Island  as  a base  for  future 
military  action  against  Grey.  Red,  who  has  supplied  Orange  with  most  of 
her  combat  systems,  also  has  a naval  force  in  the  area.  A Blue  carrier 
task  force  is  formed  and  given  the  mission:  "When  directed,  begin  opera- 


tions to  neutralize  Orange  forces  and  facilities  on  ONRODA  Island  in  order 


GREY  HAWKS  GREY  HAWKS 


FIGURE  A— 1 AREA  MAP 


to  defend  Grey,  Do  not  attack  targets  on  Orange  mainland  or  In  Orange 
ports.  Take  defensive  measures  to  protect  your  force  from  Orange  or 
Red  retaliations." 

The  Blue  task  force  is  divided  into  two  carrier  groups  and  consists 
of  the  elements  listed  in  Table  A-l.  The  enemy  forces  in  the  area  are 
listed  in  Table  A-2. 

Concept  of  Operations 

The  tentative  choices  for  Blue  COAs  are: 

• Neutralizing  enemy  forces  by  preemptive  or  reactive  air  strike 

• Neutralizing  enemy  forces  by  air  blockade 

• Employing  both  reactive  air  strike  and  air  blockade  to 
neutralize  enemy  forces. 

After  much  consideration,  the  TFC  selects  the  third  alternative  and 
orders  that  a concept  of  operations  be  developed  for  the  reactive  air 
strike  and  subsequent  air  blockade.  The  concept  of  operations  follows. 

To  defend  Grey,  the  Blue  task  force  will  conduct  air  strikes,  when 
directed,  against  Orange  forces  on  ONRODA  Island.  This  operation  will 
defend  Grey  from  Orange  air  attacks,  in  particular  from  ONRODA  Island. 

The  physical  targets  are  the  Orange  combat  aircraft  and  support  facilities 
on  ONRODA  Island.  Orange  forces  on  the  Orange  mainland  or  in  Orange  ports 
cannot  be  attacked.  It  is  expected  that  no  nuclear  weapons  will  be  used. 

Red  units  may  be  sighted  in  the  area.  There  is  a low  probability 
that  Red  will  initiate  hostile  action  toward  Blue,  but  Red  is  expected 


Note:  The  different  elements  in  a preemptive  air  strike,  as  compared 
to  a reactive  air  strike,  might  be  considered  to  be  more  surprise  to 
the  enemy,  stronger  offensive  forces,  higher  mission  accomplishment  in 
less  time,  and  fewer  defensive  forces  needed. 
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Table  A-l 


BLUE 

TASK  FORCE  MAJOR  COMBATANTS 

CARRIER 

GROUP  ONE 

Type 

Class 

CV 

KITTY  HAWK 

CG 

ALBANY 

DDG 

CHARLES  F.  ADAMS 

DD 

SPRUANCE 

DD 

GEARING  (FRAM  I) 

DE 

KNOX  (with  BPDMS  and  LAMPS) 

DE 

KNOX  (with  BPDMS  and  LAMPS) 

CARRIER 

GROUP  TWO 

Type 

Cl  ass 

CV 

FORRESTAL 

CLG 

converted  CLEVELAND 

DLG 

LEAHY 

DD 

SPRUANCE 

DD 

GEARING  (FRAM  I) 

DD 

GEARING  (FRAM  I) 

DE 

KNOX  (with  BPDMS  and  LAMPS) 

AIR  WING  COMPOSITION  (each  CV) 

24 

F-14 

24 

A-7E 

12 

A-6E 

8 

S-3A 

5 

E-2C 

4 

EA-6 

4 

KA-6 

4 

SH-3 

1 

C-l 
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Table  A-2 


ENEMY  MAJOR  COMBATANTS 


ORANGE  NAVAL  FORCES 

Number 

Type 

Class 

4 

Destroyer 

SKORY 

6 

Missile  Boat 

OSA-1 

6 

Missile  Boat 

KOMAR 

12 

Torpedo  Boat 

P6 

2 

Minesweeper 

T-43 

5 

Amphibious  Craft 

VYDRA 

2 

Submarine 

W 

RED  NAVAL 

FORCES 

Number 

Type 

Class 

1 

C ruiser 

KRESTA  I 

1 

Des  troyer 

KASHIN 

2 

Submarine 

ECHO  II 

ORANGE  AIR  FORCES 

at 

ONRODA  at  ORANGE 

24 

MIG-19  48  MIG-19 

72 

MIG-21  72  MIG-21 

48 

SU-7  24  SU-7 

24 

IL-28  12  IL-28 

24  BADGER 

A 

to  harass  and  surveil  individual  Blue  units.  Orange  units  may  also  surveil 
the  Blue  forces  before  air  strikes  begin.  Blue  forces  are  ordered  not  to 
take  preemptive  hostile  action  against  such  activities  but  to  defend  them- 
selves by  return  fire  if  fired  upon. 

The  two  carrier  groups  making  up  the  Blue  task  force  will  operate 
independently,  approximately  50  to  100  nmi  apart.  The  strike  launch  point 
will  be  400  nmi  west  of  ONRODA  Island.  On  the  first  strike  day  (S-day) 
four  Alpha  strikes  will  be  launched  against  0NR0DA--two  strikes  from  each 
carrier.  Each  Alpha  strike  will  be  composed  of  18  A-7s,  6 A-6s,  10  F-14 
escorts,  1 E-2  strike  control,  1 EA-6  for  EW,  and  3 KA-6  refuelers.  On 
each  succeeding  day  (S+l,  S+2,  etc.)  strike  carrier  duty  will  be  alter- 
nated between  carriers,  with  each  carrier  launching  two  strikes  a day. 
Additionally,  an  Intruder  strike  will  be  flown  by  four  A-6s  plus  2 F-14s 
at  night.  The  Intruder  strike  composition  will  be  substituted  for  the 
Alpha  strikes  if  the  weather  turns  bad.  The  off-duty  strike  carrier  will 
fly  the  task  force  defensive  sorties.  "Clean-up"  strikes  are  desired  when 
the  enemy  defensive  air  assets  have  been  reduced  757«. 

The  defensive  carrier  will  provide  fighter  aircraft  to  support  three 
CAP  stations  during  its  24-hour  defensive  duty.  Each  carrier  group  will 
provide  its  own  ASW  daily  aircraft  requirements.  If  enemy  surface  units 
threaten  the  task  force,  a SUCAP  (surface  cap)  of  A-7s  and  A-6s  will  be 
called  on.  It  is  highly  probable  that  Badger-A  bombers  escorted  by  MIG-21s 
with  external  tanks  may  attack  the  task  force  from  Orange  mainland  sometime 
after  Blue  strikes  ONRODA. 

After  Orange  aircraft  are  neutralized  on  ONRODA  Island,  the  task  force 
plans  to  change  station  to  a point  midway  between  ONRODA  and  Grey  from  which 
it  will  set  up  an  air  blockade  to  protect  both  Grey  from  attack  and  ONRODA 
from  reinforcements. 
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Appendix  B 
SOC  PROGRAM  LISTINGS 


IHIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
THOM  COPY  FURBISHED  TO  DDC 


00057 

NIT=14 

0005R 

HAXFLP=16 

00059 

MAXfiOW=17 

00060 

00  30  1=1,2 

00061 

DO  30  J=l,MAXOP 

00062 

20 

ICMPLX(  I,J  )=NULL 

00061 

DO  50  1=1, Mil 

00064 

00  50  J=1,MAXFLP 

00065 

DO  50  K=l,MA*anw 

00066 

50 

ITA9LE(I,0,K)=NULL 

00067 

C 

00063 

C- 

— 

PRINT  PROGRAM  TITLE 

00069 

HR ITE(5, 1 000  ) 

00070 

c 

00071 

c- 

— 

INITIALIZE  TERMINAL  DATA 

00072 

CALL  I MI T 

00071 

c 

00074 

c- 

— 

OUTPl’T  GENERAL  PREFACE 

00075 

CALL  NWSCFN(O) 

00076 

W?ITE(5,1001) 

00077 

HR  I TE( 5, 1 002 ) 

00079 

r 

00079 

r- 

— 

MONITOR  ANO  COMPLY  HITH  TERMINAL  DIALOGUE 

00080 

CALL  MONTRC ITADLE) 

0009! 

STOP 

00092 

c 

00093 

c- 

— 

FORMATS 

00084 

1000 

FORMAT ( '0 SOC  PROGRAM  VFRI4.0),  SRI  INTERNATIONAL'//) 

00095 

1001 

F3RMAT(69H  THE  OUTCOME  CALCULATOR  PRODUCED  PY  NKRC/SRI  IS  NOW 

AT 

00006 

10UR  DISPOSAL. /1H  , 

00087 

2o4KTHE  PUPPOSE  OF  T!!F  OUTCOME  CALCULATOR  IS  TO  PROVIDE  CUANTITATIV 

00033 

3E/1H  , 

00099 

464HESTIMATFS  OF  OUTCOMES  FOR  NAVAL  AIR  STRIKt  ALTERNATIVE  COI'RSF 

0 

00090 

5F/1H  , 

00091 

6 17H  ACT  ION  DFC  IS  IONS. / 1H  ,/lH  ,/lH  ) 

00092 

1002 

FORMAT!  ' ANSWERS  TO  QUESTIONS  ASYEC  OF  YOU  FY  THE  OUTCOME 

00093 

1 'CALCULATOR',/,'  MUST  RE  FOLLOWED  BY  A CARRIAGE  RETURN.'//) 

00094 

END 
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ms  PAGE  IS  BESI 9UA1IW  PEACIICASM 
ygjOM  COPY  FURNISHED  TO  DDC 


OOfiOl 

00002 

00003 

00004 

00005 

00006 
00007 
00003 
00000 

00013 

ooon 
0001  2 
ooon 

00014 

00015 
00C16 

ooon 

ooon 

ooon 

00023 

00021 

0002? 

00023 

00024 

00025 

00026 
00027 
00023 
00020 

00030 

00031 

00032 

00033 

00034 

00036 

00035 

00037 
00033 
00030 

00043 

00041 

00042 
0004"’ 

00044 

00045 

00046 

00047 

00043 
00040 

00050 

00051 

00052 

00053 

00054 

00055 

00056 


C 

C THIS  RROCP  AH  CONSTITUTES  THE  INTERACTIVE  VERSION 

C JF  THE  STRIKE  OIJTCOHE  CALCULATOR,  3UILT  FUR  THF  ONR  00 A PPOGRA*. 

C 

C NVRC/SP1  1476,1977 

C 

C 0IS.<20rEFLF  TC  REAP  P"FV10USLY  SAAFO  OATA 

C DISK71=FILt  TO  V7ITF  FATA  SAVFU  FROM  THIS  PUN 

C DISK23  = PFSPFILE  CONTAININ'*  F07«S  OUTLIVES 


C 

C 

r 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


D0U6LE  PPpriSION  IUTYPE, ICTYPF/ IUSUP , I ESUfc, IC»rLX,U  ISS 

DOUBLE  PRECISION  IT  ABLE,  I TFK’P,  l STORE,  PULL 

CUHHJN  /IF  ACF/  IUTYPF(?,15),IFTYP£(2,15),IUSU1?(2,15,15), 

♦ I FS(J?(  2/15,15),ICv’LX(?/8),kISS(2,n) 

COFFJN  /SFFCi/  I T A ” F R / ITAPLR,  ITA6SU,  ITABHF,  TFLDS( 14,15), 
1 I3LNK (15,17),  IFOR  VT( 2, 1 9 ) 

CCMM!3N  /VA  </  MATCVt’,VAXt,NT,yAYuIS,RIT,  4 AXEL",**  AX  POK,  NULL 
3 IMFNS  ION  IT A3L F( 14,1 f, 17), ITFP°( 19,17) 

— THIS  IS  AN  fc-4707  CHFCK1VG  ACTION1  TAJLS,  THE  FOLLOWIN'! 

is  i r^scRminN  ne  t vv  cu=>pf.nt  entries. 

VALUE  ERROR  ACTION 

0 CHECK  FOR  ALPHA 

1 CH'TK  Fp;  NCVEPIC 

7 CHECK  FORCE  UNIT  rFFIN ITIJN 

3 CHECK  F]K  COHPLFV  ON  LIST 

4 CHECK  FOR  MISSION  PRESENTS  ON  APPFOPP/ATc.  MST(NOT 

5 CHECK  FOR  "LONG"  OR  "SPORT" 

6 CHECK  FOR  "COOr"  OR  "aAr" 

7 CHECK  REPL  OPS 

3 CHFCK  START/STOP  F IFLnS 


OATA<IFLrS(01, 

K ) , K 

1,15) 

/0,0 

,0,9, 

0, 

0,0, 0, 

0,0, 

0,0, 

* 

0 

% 

0 

c/ 

D AT  * ( I FLCS ( 02, 

K),K 

1,15) 

/o,  0 

,1,1, 

1, 

1,1,5, 

7,6/ 

7/1/ 

1/0/ 

0/ 

DAT  A(  1 “I  •'snR, 

K),K 

1,15) 

/P,0 

,1,1, 

1, 

1,1,5, 

2,6/ 

7/1/ 

1/0/ 

0/ 

P AT  A( I FLP3( 04, 

k),K 

1,15) 

/o,o 

,1,1, 

1, 

1,1,1, 

1/1/ 

1,1, 

1/0/ 

0/ 

DATA(nLOS(06, 

K),K 

1,15) 

/0,0 

,1,1, 

l. 

1,1,1, 

1,1/ 

1/0, 

0/0/ 

0/ 

PAT  A( 1 FLOS ( 06, 

K)/K 

1,15) 

/ 1,7 

,1,0, 

0, 

0,  0,  c. 

0/0/ 

0,0, 

0/0, 

0/ 

D AT  A( I FL"S  ( 07, 

K),K 

1,15) 

/1,1 

,1,1, 

0, 

0,0,0, 

0,0/ 

0/0, 

0/0/ 

0/ 

OATA(IELDS(03, 

K),K 

1,15) 

/0,1 

,1,1, 

1, 

1,1,1, 

1/1/ 

1/1/ 

7,0, 

0/ 

RATA! IFLDS( 0°, 

K),K 

l,lc) 

/0,1 

,1,1, 

1, 

1,1,1, 

1/1/ 

1/1/ 

1/1/ 

7/ 

PATA(nL"S(n,K),K: 

1,15) 

/1,0 

,0,0, 

0, 

0,0,0, 

0/0, 

0/0, 

0/0, 

r/ 

D AT  A( I ELDS ( 11, 

K),K 

1,15) 

/0,1 

,3,3, 

0, 

9,1,0, 

2/1/ 

1,1/ 

0/0/ 

0/ 

DAT  A( I FLCS ( 1 2, 

K),K 

1,15) 

/0,1 

,3,3, 

9, 

8,1, C, 

2,1, 

1/1/ 

0,0, 

0/ 

DATA(IFLDS(I2, 

K ),K 

1,15) 

/5,6 

,5,5, 

5, 

5,5,5, 

0,0, 

0/0/ 

C/0, 

0/ 

DATA(IFLDS(14,K),X= 

1,15) 

/6, 6 

,6,6, 

6, 

6,6,6, 

6,6, 

0,0, 

0/0, 

0/ 

DATA  HULL/6H  / 

— INITIALIZE  TABLE  DATA 
CALL  ERRSFT(O) 

HAXCP?=B 
!4AXUNT  = 15 
MAXMIS=17 


n^n 
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00001 
0000? 
0000  3 
00004 
P0005 
0000ft 

00007 

00008 

00009 

00010 
00011 
00012 
ooon 

00014 

00018 

OOOlfi 

00017 

00018 

00019 

00020 
00021 
00022 

00023 

00024 
00028 
00026 

00027 

00028 
00027 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 
00047 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 
00056 
00056 


JtIRROUT  I NF  MJN?R(  ITARLF) 

C 

C THIS  ROUTINE  UNITORS  INTERACTIVE  VERSION  OF  THE  OUTCOME  CALCULATE 
C 

DOUBLE  PRECISION  NULL,  ITABLE,  ITFMP,CDATt 

DOUBLE  PRFCISTON  1 UT YPE , I ET VP E, T USUP , TESUP, TCMPLX, V I SS 

DIMENSION  ITA3LE(14,16,17),ITEMP(19,17) 

COMMON/EQDS/ IDPUN, IDAY 
DOUBLE  PRECISION  ICRUN 

COMMON  / T E 4 C E / I UT  YPF(  2,  1 5 ) , I ET  YP  E(  2,  1 5 ) , 1 US'JP.  ( 2,  15,  1 5 ) , 

♦ IE5U8(2,15,15),ICMPLX(?,8),M1SS(?,17) 

COVtfON  /SPECS/  ITARFR,  ITABLP,  IT ABNrt,  ITABNF,  IFLDS ( 1 4, 1 6), 

1 T BLN* (15,17),  IFORuT( 2,17) 

COMMON  /MAX/  MAXCMp/ MAXUNT, M AXM IS, NI T, MAXFLP, VAXROW, NULL 
INTEGER  LINES! 15) 

C ATTACH  PEPM  FILE  WITH  FORMS  LOGICAL  UNIT  23 

C 

CALL  DEFINE  FILE(23,80,TIN,'SPIPUR.MS.DAT',0,  C) 

C 

C 

ID8UN  = NL'LL 
WRITE(5, 1C02) 

MR  IT £(6,1001) 

CALL  DUMRD 
C 

C FUNCTION  MENU  CONTROL  POINT 

C 

ICO  CONTTNUF. 

CALL  NWSC°N(0) 

WRITE (5, 1003) 

WRITE(6,1P57) 

CALL  CFTTNT(IF) 

I F(  I r .FG.-3.0».(IF  . GE .1 . AND. IF  .LE.P))  GO  TC  105 

c 

C ARORT  FUNCTION 

C 

102  CONTINUE 

CALL  NWSCFN(O) 

WR ITE(5, 1 006 ) 

CALL  DLA  V( 2 ) 

GO  TO  100 
r 

C PROCESS  LFGAL  FUNCTION 

C 

105  CONTINUE 

IF ( IF  . FO.-3 ) IF  =9 
CALL  NWSCRN(O) 

GO  TO  (150, 200, 300, 400, 500, 600, 700, 800, 300),IF 
C 

C LOAD  INPUT  TAPLES 

C 

150  CONTINUF 

CALL  SETUP( ITAELE ) 

GO  TO  100 
C 
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W,SP*«EISBBST(lOB.m™LCIXaM 

fbo*»copyfuk»ish®iodd,C 


00057 

c 

SAVE  INPUT  TABLES 

00058 

c 

00059 

200 

CUNTIN"E 

00060 

CALL  S A VFT ( IT  ABLE ) 

00051 

CO  TO  100 

00062 

c 

00061 

c 

DISPLAY/ INPUT  TAPLE 

00064 

c 

00065 

300 

CONTINUE 

00065 

IF  C I F • FQ. 9 ) CO  TO  301 

00067 

WP1TE(S,1C08) 

00063 

HRITE(5,2008) 

00069 

301 

CONTINUE 

00070 

U9ITE(6,1009) 

00071 

NRITE(5,10ol) 

00072 

CALL  CFTINT(IT) 

00073 

IF(IT.CE.l  .AND.  tT.LE.NIT)  CQ  TO 

304 

00074 

IF( IT.LT.NIT  .OR.  IT.CT.191  GO 

TO  102 

00075 

CALL  PDYOUTdT/ITEKP) 

00076 

CO  TO  306 

00077 

304 

CONIINUF 

00078 

DO  305  1=1 /MAXFLD 

00079 

DO  305  J=1 /NAXROV 

00090 

305 

ITrMP(IrJ)=ITA8LE(IT  ,I,J) 

00031 

c 

000B7 

r 

PRINT  SCREEN 

00083 

c 

00034 

305 

CALL  SCKNOdT  ,ITF¥?1 

00095 

IrdT  .LF.NIT)  CO  TO  308 

00086 

CALL  OIJVRr 

00097 

GO  TO  10n 

00099 

r 

00089 

r 

INPUT  DATA 

00090 

r 

00091 

903 

CONTIN11F 

00092 

DO  309  T=l,15 

00093 

DO  309  J=l/WAXROW 

00094 

109 

IBLNKd#J)=0 

00095 

IES3=P 

00096 

CALL  SCRNKIT  /ITE«P) 

00097 

C 

00098 

r 

CHCCK  FOR  NO  CPANGE  IN  TABLE 

00099 

c 

00100 

IF (IT  . EQ. 0 ) GO  TO  100 

00101 

c 

00102 

r 

SET  EPR09  FLAG  IF  FIELDS  WERE  IN 

ERROR 

00103 

c 

00104 

IFdT.GT.O)  GO  TO  310 

00105 

I ERR=1 

00106 

IT=- IT 

00107 

310 

CONTINUF 

00109 

c 

00109 

c 

00  SUBSEQUENT  PROCESSING 

00110 

c 

00111 

CALL  SUBPPO(IT,ITENP,ITABLE) 

00112 

CALL  FkKOEdT/ITEMP/IERR#!) 
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00113  IF(IEP.k.EG.l)  03  TO  306 

00114  CALL  PCOOEIIT/ITEMP) 

00115  C 

00115  C SAVE  ERROR  FKEF  TABLE 

00117  C 

00118  *RITE(5,1010) 

00119  CALL  TRSFA’I  IT  , IT  ABLE/  ITEPP  ) 

00120  CALL  OLA Y( 2 ) 

00121  GO  TO  100 

0012‘>  C 

00123  C PRINT  TABLE 

00124  C 

00125  400  CONTINUE 

00126  WRITE! 5/ 1C23  ) 

00127  HR ITE( 5/ 1 063) 

00128  CALL  GFTTNT ( IT ) 

00129  C 

00130  C CHECK  FOR  VALID  ENTRIES  IN  RBSPONCE  TO  QUESTION  FOR  TAB  NO. 

00131  IFdT.Of.l  .AND.  IT.LE.19)  GO  TO  410 

00132  IF(IT  .EQ.  98)  GO  TO  470 

00133  IF(  IT  .EQ.  99)  GO  TO  4 25 

00134  IF( IT  .EQ.  100)  GO  TO  430 

00135  GO  TO  102 

00138  C 

00137  C PRINT  OUT  INDIVIDUAL  TABLE 

00138  410  CONTINUE 

00139  10  = IT 

00140  IE  = IT 

00141  GO  TO  440 

00142  C 

00143  r PRINT  OUT  INPUT  TA9LFS 

00144  420  CONTINUF 

00145  13  = 1 

00146  IF  = NIT 

00147  GO  TO  440 

00149  C 

00149  C PRINT  OUT  OUTPUT  TABLES 

00150  425  CONTINUF 

00151  13  - NIT+1 

00152  IE  - 19 

00153  GO  TO  440 

00154  C 

00155  C PRINT  OUT  ALL  TABLES 

00156  430  CONTINUF 

00157  IB  = 1 

00159  IF  = 19 

00159  GO  TO  440 

00160  C 

00161  C CENERAL  LOOP  FOR  TABLE  PRINTING 

00162  440  CONTINUF 

00163  CALL  PATE(COATF) 

00164  CALL  TINE(CTINF) 

00165  NPP=99 

00166  C 

00167  C 

00169  DO  490  ITT=I9,IE 
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00161 

npp-nfp*i 

00170 

l F ( NPP.LE.2)  90  TO  450 

00171 

NPP-1 

00172 

WRITE  (MOU)  CrATf,CTIPF 

00171 

45C  CONTINUE 

00171 

HUTtO,  10121  ITT 

oons 

IE( ITT  . GT.  SIT)  CO  TO  4bO 

00176 

C 

oom 

r 

PROCESS  I NG  AN  T N°UT  TYPE  T 

00173 

DO  455  1 = 1,M»XFLC 

00171 

00  456  J s 1,WAXP0W 

001  Hi 

ITEMP(I,J)  r ITAHLrdTT/I,. 

00 1 H 1 

155  CONTINUE 

ooie? 

CQ  TO  470 

00133 

r 

001  HI 

c- 

P70CESSING  AN  OUTPUT  TYPE  ' 

001H5 

463  CONTINUE 

00136 

CALL  POYOUT( ITT, ITEHP ) 

tETNPI* 

LlNf::00136  POSSIBLE  PQ  IN1EX  NOME 

09187 

C 

00133 

C- 

OUTPUT  T A3Lr 

00131 

470  CONTINUE 

00110 

C ALL  LIS TO (ITT, IT EMP) 

■AFTNPIE 

LINEIOOHO  1QS3I3LE  E3  INUFX  KOPIE 

oom 

C 

00112 

c 

00193 

490  CONTINUE 

00114 

r 

00196 

c 

00196 

H.RITE(5,1024) 

00197 

CALL  OL A Y ( 7 ) 

001 91 

GO  TO  100 

001H 

c 

00200 

c 

TV N CATTLE 

00201 

r 

00202 

5CO  CONTINUE 

00203 

WRITE(5,1125) 

00204 

15 A0( 5, 1 1 26 ) ITEUN 

00206 

HR ITS( 5, VC  25 ) 

00206 

CALL  BATLE 

00207 

HR  ITE( 5, 10  26  ) 

00203 

CALL  OL AY( 2) 

00201 

CO  TO  100 

00210 

c 

00211 

c 

STOP 

00212 

r. 

00213 

600  CONTINUE 

00214 

HR ITE( 5, 1 0 27 ) 

00215 

CALL  RELE.AS ( 23) 

00216 

RETURN 

00217 

c 

00213 

c 

LIST  TABLES 

00219 

c 

00220 

700  CONTINUE 

00221 

HRITE(5, 1028 ) 

00222 

HR ITE( 5, 20  28 ) 
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00223 

00224 

00225 
00225 
00227 
00220 

00229 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

0023  1 
00233 

00239 

00240 

00241 

00242 

00243 

00244 

00245 
00245 

0024  1 
0 0 243 
00243 

00250 

00251 

00252 

00253 

00254 

00255 

00256 

00257 

00258 

00259 

00260 
00261 
00262 

00263 

00264 

00265 

00266 
00267 
00263 

00269 

00270 

00271 

00272 

00273 

00274 

00275 

00276 

00277 
00279 


WRITE!5,3C28) 
WRITE!5,1001  ) 

CALL  DUMPr 

co  to  ioo 

FUNCTION  FXPLANATICN 

CONTINUE 

WRITE!5,1029) 

WRITE! 5,7029) 

WR I TE! 5, 3029 ) 
W9ITE(6,1001) 

CALL  OUWRD 
GO  TO  100 


C 

c 

1001 

1002 


FORMATS 

FORMAT!$,1HO,'TO  CONTINUE  STRIKE  SPACE  HAP.  ') 

?OR«AT(72IOTO  OPERATE  THE  OUTCOME  CALCULATOR,  THE  USER  REPEATEDLY 
1 SELECTS  CROM  TfF/lH  , 

228HF JLLOKING  LIST  OF  FI’ NCT  IONS  . ) 

FORMAT  (16H  THE  FOLLOWING  FUNCTIONS  Aoe  AVAILABLE  TO  YOU  //IE  , 
113H1.  LO AT  INPUT/ / 1H  , 

213H2.  S A7 1 INPUT / /1H  , 

322H3.  01  SPL A Y/  INPUT  TAfcLP//l(i  , 

414H4.  PRINT  T APLF//1H  , 

56H5 . RUN//1H  , 

67H6.  ST0P//1H  , 

714H7.  LIST  TA3LES//1H  , 

B26HP.  EXPLAIN  ABOVE  FUNCTIONS//) 

FORMAT  (1PH  FUNCTION  ARORTEP.) 

FORMAT (71H  TO  SUPRESS  THE  FOLLOWING  TEXT,  CALL  FOR  THIS  FUNCTION  W 
1ITU  A "-3"  NEXT/1 H , 

25HT IMF. / 1 H , 

359H  ONLY  TABLFS  NUMBERED  1-14  CAN  BE  INITIALIZED  UR  CHANGED. /1H  , 
47 1H  IF  A TA3LF  IS  INITIALIZE"  OR  CHANGED,  IT  IS  CHECKED  ^05  ENTRY 
5 ERRORS. /1H  , 

625H  IF  NO  ERRORS  ARE  FOUND  /IK  , 

765H  1.  THE  CURRENT  DATA  TABLE  IS  REVISED  TO  REFLECT  THE  CHANGE 

8S.  ) 

FORMAT!  'OTO  REINITIALIZE  A TABLE,  LEAVE  EDITING  MODE  '/ 

1 ' IMMEDIATELY  AFTER  TABLE  IS  DISPLAYED.'/ 

2 ' THE  USER  IS  THEN  RETURNED  TO  THE  FUNCTION  MF*!U.'// 

3'  TA3LE  CUES:  I-FLWTS  2-BFU  3-RFU  4-BENG  5-RENG  6-WPAV  7-ACCAP'/ 

4'  8-3CPLX  9-RCPLX  I0-MISC  11-BOPS  12-ROPS  13-POSIT  14-WX'/ 

5'  15-3MAC  16-RMAC  17-BATT  18-RATT  19-ACEXP'/) 

FQRMATI73H  CURRENT  TABLE  OF  INTEREST  WAS  FUUNO  TO  BE  ERROR  FREE.  I 
IT  NOW  CONST1TUTES/1H  , 

229HTHE  CURRENT  INPUT  DATA  TABLE./  ) 

FORMAT! '1  LISTING  OF  SOC  PROGRAM  T ABLES . ',5 X, A1 0,5X, A5 ) 
FORMAT!///, IX, 'TABLE  NUMBER  ',12,/) 

FORMAT  ! 51 H YOU  MAY  NOW  SELECT  ANY  TABLE  FOR  PRINTING  OFFLINE./ 

♦ IK  , 

145H ADDITIONALLY, WHEN  ASKED  FOR  THE  TABLE  NUMBER  /1H  , 

262H  A RESPONSE  OF  98  WILL  GIVE  ALL  OF  THE  INPUT  T ABLES ! 1-14 ). / 

♦ 1H  , 

364H  A RESPONSE  OF  99  WILL  GIVE  ALL  OF  THE  OUTPUT  TABLFS! 15-1 9 ) 
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00279 

4./' 

A RESPONSE  OF  100  WILL  GIVE  ALL  OF 

THE  TABLES! 1-19). 

'/) 

00280 

1024  FUFMAT 

(?7UOOFFLINF  PRINTING  EXECUTED.) 

00281 

1025  FURNAT 

( ?7H0THf  OUTCOME  CALCULATOR  IS  EXECUTING.) 

00282 

1026  r OR«AT(61i;OUUTCOME  C ALC UL AT T ONS  FUR  CURRENT 

INPUT  DATA  TABLES 

COMO 

00283 

1LETE 

00284 

1027  FORMAT 

( 31 H QUTCOMF  CALCULATOR  TERMINATED.) 

00285 

1023  FORMAT 

(4211  TABLE 

DIRECTORY/ 

00286 

1 56H 

NO. 

TITLE 

TYPF  / 

00287 

256“ 

1 

FOP.CE  ELEMENTS 

INPUT/ 

00288 

356H 

2 

BLUE  FORCE  UMTS 

INPUT/ 

00289 

456H 

3 

RFD  FORCE  UNITS 

INPUT/ 

00299 

556U 

4 

FFG AGFMpjiT  STATISTICS  eqr  fcLijc  ATTACKING  RFD  INPUT/ 

00291 

656.4 

5 

FNGAGFMENT  STATISTICS  FOR  RFD  ATTACKING  BLUE  INPUT/ 

00292 

756H 

6 

WFAPON  PLATFORM  AVAILABILITY 

INPUT) 

00291  1029  FORMAT  { 47  H FUNCTION  EXPLANATIDNS/1H  ,/IP  , 

00294  1 o 8 K 1 . LOAF  INPUT  - INPUT  DATA  TABLES  KILL  BE  ENTFPED  FROM  A PPFVIO 

00298  2U5LY  /1H  , 

00296  337H  CONSTRUCTED  DATA  SET./1H  ,/lH  , 

00297  471H2.  SAVE  INPUT  - CUPPENT  INPUT  DATA  TABLES  KILL  BE  SAVET  FOP  FU7 

00298  SURE  USE./lr!  ,/IK  , 

00299  672H3.  D I SPLAY/ INPUT  - SUESFQUCNTLY  SELECTED  TAELE  KILL  PE  DISPLAYE 

00300  70.  Ir  THr/lH  , 

00301  8714  TABLF  TiPLF  IS  IN  THE  INPUT  LATA  SET  IT  CAN  PF  INI 

00302  9TIALI7E") 

00303  1057  FO'5>'AT(S,46KOWHAT  FUNCTION  NUMEER  PO  YOU  WISH  TO  EXECUTE?  ) 

00304  1061  FOP  FAT ( $, 42H  WHAT  TABLE  DO  YOU  WISH  TO  DISPLAY/ 1 NPUT?  ) 

00305  1063  FO?FAT(S/41H  WHAT  TABLE  NUMBER  DO  YOU  WISH  TO  PRINT?  ) 

00306  1125  FORMAT!'  WHAT  IS  THE  PUN  ID  (10  CHAP  MAX)?  ') 

00307  1126  FORMAT(AIO) 

00308  2008  FORMAT  (51H  2.  THE  USER  IS  RETURNED  TO  THE  FUNCTION  *ENU.// 

00309  1 1 H ,234  IF  AN  ERROR  IS  PO’’ND  /1H  , 

00310  269H  1.  THE  TABLE  TS  DISPLAYED  AGAIN  FUR  CORRECT T ON ( BAT  C'IFLDS 

00311  3 NOTED) / IK  , 


00312 

449H 

2.  NO  ACTION  IS  TAKEN  ON  CURRENT  DATA  TABLE.) 

00313 

2023  FORM 1T( 56H  7 CAPABILITIES  OF  A/C  RELATED  ELFMENTS 

INPUT 

00314 

1/ 

00315 

256H  8 

BLUE  FOFCE  COMPLEXES 

INPUT/ 

00316 

3664  9 

RED  FORCE  COMPLEXES 

INPUT/ 

00317 

4 S6H  10 

MISCELLANEOUS  INPUT 

INPUT/ 

00318 

556H  11 

BLUF  OPERATIONS  PLANS 

INPUT/ 

00319 

656H  1 7 

RFD  OPERATIONS  PLANS 

INPUT/ 

00320 

756H  13 

RELATIVE  COMPLEX  POSITIONS 

INPUT/ 

00321 

8S6H  14 

INITIATING  WX  DAYS 

INPUT) 

00322 

2C29  FORMAT 

( 3 0 H OR  EDITED. /1H  ,/1P  , 

00323 

169H4. 

PRINT  TABLE  - SUBSEQUENTLY  SELECTED  TABLE  WILL 

BF.  PRINTFD  OF 

00324 

2FLINE. 

//  1H  , 

00325 

3o9H5 . 

RUN  - CURRENT  INPUT  DATA  TABLES  WILL  BE  USED  TO 

GENFP ATE  OUT 

00326 

4COMES. 

//IP  , 

00327 

548H6  . 

STOP  - OUTCOME  CALCULATOR  WILL  BE  TERMINATED./) 

00323 

3028  FORVAT(57K  15  BLUF  MISSION  ACCOMPLISHMENT  RESULTS 

OOTPU 

00329 

IT/ 

00330 

257H  16 

RFD  MISSION  ACCOMPLISHMENT  RESULTS 

OUTPUT/ 

00331 

357H  17 

BLUE  COMPLEX  PATTLE  ATTRITION  RESULTS 

OUTPUT/ 

00332 

457H  13 

RFD  COMPLEX  BATTLE  ATTRITION  RESULTS 

OUTFUT/ 

00333 

557K  19 

AIRCRAFT  FXPENDITORE  SUMMARY 

OUTPUT/) 

00334  3029  E0RMAT(68H  7.  LIST  TABLES  - REFERENCE  NUMBERS  AND  TITLES  OF  TABLES 
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00335 

00336 

00337 
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1 USED  BY  THE/ 1H  , 

OUTCOME  CALCULATOR  WILL  BE  DISPLAYEO.//) 

END 
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00001 

00002 

00003 

00004 

00005 

00006 

00007 

00008 
00008 
00010 
tFTNOI!' 
00011 
00012 
%FTNDIM 

00013 

00014 

00015 

00016 
00017 


SUBROUTINE  BATLE 
C 

r THIS  ROUTINE  CONTROLS  THE  OUTCOMF  COMPUTATION  ALCOPITHM 

C 

CALL  NEWRUN! IEND, IDAY) 

200  CALL  NEViDAY!  I END,  IDAY  ) 

IF(IENP.EC.l)  RETURN 
00  400  ITS  =1 /8 
CALL  SCHED(ID.",Y,  TTS) 

LINE-.00010  POSSIBLE  00  INDEX  MODIFICATION  INSIDE  LOOP 
CALL  RECOVR 

CALL  LAUNCH! ITS/  IDAY) 

LINE:00012  POSSIBLE  DO  TNDEX  MODIFICATION  INSIDE  LOOP 
CALL  ENGAGE! IDAY) 

CALL  RECOVR 
400  CONTINUE 
GO  TO  200 
END 
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■ 

* 


00001 

00002 

00001 

00004 

00005 
00C06 
000C7 
0000« 
0000  7 
OOOin 
00011 
00012 
ooon 

00014 

00015 

00016 
00017 
00015 
OOOli 
00020 
00021 
00022 
00021 

00024 
00021 
00026 
00027 

00025 
00021 
C0030 
00031 
00037 
000?7 

00034 

00035 

00036 

00037 
00031 
00037 

00040 

00041 

00042 
0004"1 

00044 

00046 

00045 

00047 
00044 
00047 

00050 

00051 
0 005  2 
00057 
00054 
00155 
0005  5 


SUB  ROUTINE  NKWRUN<  i?Nr,IPAY) 

c 

C Th  13  RQl’TINF  INITIALIZES  AN  OUTCOME  COMPUTATION 

C 

DOUBLE  PRECISION  2C'JMPS,0Pt,FX,0=  IC,TAPG,  TTS 
SEAL  L.71EF 

INTFC^R  JP  lCIN,TAROET,START,STJP,UVAX,UMr;,,UkFADY 
INTEGER  UASK  , UCOT 
REAL  L I V n I. X 

CJMEJN/PLOCKB/r3UNIT(2/20,2),SC'lMPS(2,20/5)/CO»'PS(2,20,c:), 
+SrSAT(2,20,4>,AOEFAT<?,2O,2),ACKILL(2,2O,lO),SPATF(2,2,5), 
+OCOVPS(2,10),MAXP(2,2C),LRPEF(  2,2P),KST4fX(  2, 2P),BKPFF(  2/20), 
+0KVAX(2,?0),3PEED(2,20),TRRTTM( 2,5),  SS30MX( 2, 5) , IMAXR( 2, 20  ), 
♦ILSrFr(2,20),IWSTWX(2,20),IFWOFF(2,2G),NCOMPS(2),NS'JNIT(2) 
COMWON/BLOCKC/fOMPLT( 2,10, 10), 

+ DPLFXC2,  10),PTSLI(2,10),SURFAC( 2,10),  DEF AC( 2, 1 0) , T C YCLF( 2, 10 ) , 
♦IREPL(2,1C),RFPQPS(2,10,7),OPS(2,11),REPA1S(2,11), 
♦NPLFX(?),MTIXEf7)/  NPAYS,JWXDEF,JLRDFF,WXSUPV,iELAY, 

+JPSLCH,CrSLND 

COMWON/FLCCKD/TONQFF(2,2C,2),JONOFE(2,20,2),S1(2,?C,2),S2(2,20,2), 
+MTS(?,20,P),UNIT( 2, 20, 7 ), S A ( 2, 20, 2), SP( 2, 20, 2) ,TTS( 2, 20) , 
+RANCE(1C,10),IRAKCF(1 1,1P),PFISS( 2, 20 ) , I PR  I ( 2, 20 ),OR IC( 2, 20) , 

+ tAK".U,20),UXAX(2,20),UVIN(2,20),akIGINC2,20),TARGF.TC2,20), 

+ IUNIT(2,2O),STA|7T(2,?O),ST0?(2,?O),l'RFADY(2,2P), 

+DAY(?0),  V'X(30),IKX(?O),NVISS(7) 
CGMMJN/RL0CKE/LTVoLX(2xlC,10),lMSK(2,20,3),UG0T(2, 20,3), 
+3R30(2,10,5),AIRl'i(20,5,8),A I RPN( 20,5, 3 ) , ADP AS E( 2, 10) 

COMMON  / A I R F X ? / ”XFS(19,10) 

I P A Y = 0 
IEHr.  = 0 

n 

C SET  lip  ELACS  TO  INDICATE  START  A NO  STOP  CRITERIA  FOR  MISSIONS 

C N=1  FJK  START 

C N=2  FOR  STOP 

C 

BJ  490  L-1,7 
NM-NITSS(L) 

00  465  M = 1 , N M 
IOMU?,F(L,M,l)=P 
I0K.1FF(L,I  ,2)^0 
OJ  430  N=l,2 
SA(L,'*,N)-S1(L,M,N) 

30(L,M,N)=S?(L,V,N) 

IK  3!  <L,F,'O.NF.  3H01Y)  C0  TO  350 
OECOOEd  0,1000, 32  (L,  »*,«))  A 
1S-A+.5 

lF(N.EO.l)  ST  ART ( L, V ) = IS 
IrC'l.Sl.2)  STOP {L,W)  = T3 
GO  TO  4q0 

151  IF  ( SI  (L,u,  N ) . NF  . ii'Fi«n)  TO  TO  450 
P0  440  J=1,NF 

!r(S.7(L,,-,.Y).NF.BVT53(L,J))  2J  TO  440 
10N0FF(L,F, N ) = 1 
Jl)AiilPp  (L,i*,  N ) = J 
IF(N.Fl.l)  5TAFT(L,U)=100 
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00057 

00058 

0005  7 
00060 
00061 

0006  2 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 
00081 
00082 

00083 

00084 

00085 
00085 

00087 

00088 
0009Q 

00090 

00091 
00002 

00093 

00094 

00095 

00096 

00097 
00093 
00093 
00100 
00101 
00102 

00103 

00104 

00105 

00106 

00107 

00108 
0010  ) 
00110 
0011  1 
0011  ? 


IF ( N . EQ. 2 ) 3TOP(L,M)-100 
GO  TO  480 
440  CONTINUE 

450  IF(S1(L,M,N).EQ.3H  ) CO  TO  475 
DECODE!  10,1000, S7(L,M,N))  A 
IPFRCT=A+.5 
1000  F0hMAT(F5.0,5X) 

IF(S1(L,M,N).SC.  3HPOA)  IA=2 
IF(S1(L,K,N).EQ.  3HPTA)  IA=3 
IF(31(L,M,N).EQ.  38DOS)  ta=4 
IF(S1(L,M,N).EQ.  3H0US ) IA=5 
IF(S1(L,M,N).EQ.  2HPLS ) IA=6 
IUNOFF(L,M,N)=IA 
JONOFF(L,V,N)=IPFRCT 
475  IF(N.EO.l)  ST  ART ( L, M ) - 1 00 
IF(N.EQ.2)  STOP(L,X)-100 
480  CONTINUF 
485  CONTINUE 
490  CONTINUF 
C 

C VARIABLE  EXPLANATIONS 

C NMISS-NO.  OF  MISSIONS  L-l  pOP  PLUE  L = 2 '‘OR  PED 

C NPL£X=N0.  OF  COMPLEXES 

C NCO'IPS^NG.  OF  FORCE  COMPONENTS 

C UASK=CUM  NO.  OF  FORCE  UNITS  REQUESTED  FOR  M-TH  MISSION 

r UCOT=C"I  NO.  OF  PECEIVFr  UNITS 

C LIVPLX=NO.  OF  LTVE  TYPE  T UNITS  AT  K-1'H  COHPLFX 

C ADB ASF-CUM  NO.  OF  OPERATIONS  REPAIRED  AT  K-TH  COMPLEX 

C A IRON- AV  AIL • OE  FORCE  UNITS  ON  GROUND 

C J TNDICSTFS  TIME  STEP! UCURRFNT) 

C AIR'IP-STATUS  OF  UNITS  OUT  ON  MISSIONS 

C 

DO  650  L - 1 , ? 

NM  = NU ISS (L  ) 

NP  = NPLFX(L ) 

NC-NCOMPS(L) 

DO  500  M = 1 , N M 
DO  500  N=l,3 
UASF(L,M,K)=0 
UGOT(L,M,N)=0 
500  CONTINUF 

DO  600  F=1 ,NP 
AD3ASECL,K)=0.0 
DO  609  1=1, NC 

LIVPLX(L,F,I)=COMPLX(L,F,I) 

IF(I.LF.5)  SR30(L,F,  I ) = 0. 0 
600  CONTINUE 
650  CONTINUF 
N = 0 

00  700  L-l, 2 
NP=NPLFX(L) 

DO  700  F=1,NF 
N = N ♦ 1 

DO  700  1-1,5 
DO  703  J-1,8 
AIPPNIF, I,J)=0.0 
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IF(J.EQ.l  ) AIKnN(N,I,J)rLrvPLX(L,K,T) 
IF(L.EQ.l.AND.J.eQ.l)  A 1 7D  N( N,5, J ) = 0 . 0 
AIPUP(N,I,J)=0.0 
’’00  CONTINUE 

00  O00  1=1,10 
00  800  J=l, 1 9 
FXPS(J,I)-0.C 
800  CONTINUE 

RETURN 
END 
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SUBROUTINE  NEWr AY(  lENP,InAY) 

THIS  ROUTINE  INITIALIZES  A NEW  DAY  IN  THE  ENCAGFKFNT 

DOUBLE  PRECISION  PCOMpr,npL  EX,t)R  rC,TAPC,  TTS 
REAL  LRPPF 

INTEGER  ORIGIN,TJRCET,START,STOP,UI«:AX,UMIN,URFADY 
INTEGER  UASK,L'COT 
REAL  L IVPLX 

DIPFNSION  0(10,6), XNTCFR(31 ) 

CUMMON/PODS/TDRUN,JD,Y 
00U3LF  PRECISION  IDRUN 
COMMON/ENPC/JENDC 

COH<JN/PLOCKB/rSl'NIT(2,20,2),SCOPPS(2,20,5),COPPS(2,20,5), 
♦STRAT(2,20, 4 ),  ADFF  AT  ( 2,  20, 2)  , ACK  TLL(  2,  20,  10  ),  SR  AT£(  2, 2,5), 

♦DCOMPS ( ?,10),MAYR(2, ?0),LRPEE(2,20),WSTWX(2,20),BWPEE(2,20), 
♦DRFAXC2, 20),3PEEP(2,20),IRRTIP(2,5),  SR30FXC 2,5 ) , IMAXR( 2, 20 ) , 
♦ILRDEE(2,20),IWSTWX(2,20),IBWDEF(2, 20),NCOMPS(2),NSUNIT(2) 
C0MM0N/5L0CF  C/COMPLX(2,10,10), 

♦DPLFX( 2,10),DTSLI(2,10),SURFAC( 2,10),  PEF AC( 2, 1 0) , ICYCLE( 2,10 ), 
♦IREPL(2,lC),RFPaPS(2,10,2),GPS(2,ll),REPAIR(2, 11), 
+NPLEX(2),KTIME(2),  ND A YS, JWXDEF, JLRDFF, WXSUR V, Of LAY, 

♦OPSLCH,OPSLNP 

CQMMON/PLOCKD/IUNOFF(2,20,2),JONOFF(2,20,2),Sl<2,2O,2),S2(2,20,2), 

+MTS(?,20,P),UNIT(2,?0,2),SA(2,20,?),SR(2,20,2),TTS(2,20), 

♦ RANGE(10,10),I9ANGE(10, 10),PMISS(2, 20), 1 PRI ( 2, 20 ),OR IG(  2,20), 
+TAXG(2,20),UMAX(2,20),UHTN(2,20),ORIGIN(2,20),TAKGET(2,20), 
+IUNIT(2,20),START(2,20),STOP(2,20),PREADY(2,20), 

♦DAY ( 30 ),  WX(30),IWX(30),NMISS(2) 

COHNON/BLDC* E/LIVPLX(2, 10,10),U* SK( 2, 20, 3),UGOT(  2, 20, 3 ), 

♦ SR30(2,1C,5),AIRUP(20,5,8), A I RPN ( 20, 5, 8), ADP ASE( 2,10) 
COMMON/PLOCXF/SR(2,10,5 ),IPTY<2,9) 

CJKPON  /AIRFXP/  EXP3(1°,10) 


DATA  XNTGFR/5H 


0, 


00036 

♦5H 

l ,5 s'  7 

,5H  3 

,S>* 

4 ,5H 

5 , 

00037 

♦ 

5H 

6 ,5H 

7 ,5  H 

8 ,5H  9 

,5H 

10 

/ 

00039 

♦ 

5H 

11  ,5H 

12  ,5H 

13  ,5H 

14 

,5H 

15 

/ 

00039 

♦ 

5H 

16  ,5H 

17  ,5° 

18  ,5H 

19 

, 5H 

20 

f 

00040 

5H 

21  ,5il 

27  ,5H 

23  ,5H 

24 

,5H 

25 

f 

00041 

5H 

26  ,5H 

27  ,5H 

28  , 5H 

29 

,5H 

30 

/ 

150 


700 


INITIALISE  VARIABLES  AT  THE  BEGINNING  OF  A NEW  PAY 

JDA  Y=  T DA  Y 
1DAY=IDA\'+1 
DO  500  L=1 ,2 
NP=NPLF.X(L) 

DO  150  TK=1,9 
IPT V( L, I K ) - 0 
CUNTINMF 
DO  “>30  f = 1 ,NP 
JU  200  I -1,6 

Ir(I.LE.S)  SR(L,K, I > =0. 0 

p(k,  i ) =P . r 
CJNTIVPF 
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C 

C COMPUTE  DESTRUCTION  LEVFL  AT  EACH  COMPLEX  F03  EACH  ELEMENT  CL 

C P-FRACTION  or  UNITS  I AT  K DESTROYED 

C I = C FOR  OA,3  r A/ 4 03,5  TS,6  LS) 

C 

IF(L.EC.2)  GO  TO  300 
XN=L1VPLY(L,K,1)+LIVPLX(L,X,7) 

XO-COMPLXCL/K/l) +COEPL  X(L,K,2) 

iF(yr.GT..oonr>(K,2)=i.-XN/xD 

XN=LIVDLX(L,X,3)+LIVPLX(L,X,4) 

XP  = C9VPLXCL,K,3)*COElPLX(L,X,4) 

IE(XD.CT..001)D(K,3)=l.-XN/XD 

IF(CnMPLX(L,K,5) .GT..001  )D ( K,4 ) =1 . -LI YPLX ( L,K,5  ) / 

1 C0WPLX(L,K,5) 

TF(COMPLX(L,K,6).GT..001)D(K,5)=1.-LIVPLX(L,K,6)/ 

1 COMPLX (L,K,6) 

GO  TO  330 

30C  CONTINUE 

XN=L1VPLX(L,X,1)+LIVPLX(L,X,2)+L1VPLX(L,K,3) 

XD^COMPLX  (L,K,l)+C0'*oLy(L,X,7)+C0MPLX(L,K,7) 
IF(Xr.GT..001)D(X,2)=l.-XN/XD 

1F(C0MPLX(L,K,4).CT. . 001 )C ( K,3 ) =1 .-H VPLXI L,X, 4 )/ 

1 COM°LX(L,K,4 ) 

XN=LIVPLX(L,K,5)+LIVPLX(L,X,6) 

X0=C0MPLX(L,F,5 )*COMPLX(L, K, 6) 

IF(XN.GT..00l)0CX,4)=l.-XN/XD 

IF(CCMPLX(L,X,7).GT..001)P(K,5)=1 . -L I VPLX(L,K,7 ) / 

1 C0MPLXCL,K,7) 

IF(COMPLX(L/K,3).GT..001)U(X,6)=1.-L1VPLX(L,K,8)/ 

1 COVPLX ( L,X, 8 ) 

330  CONTINUE 
C 

C UPDATE  START  AND  STOP  IN  OPERATIONS  PLAN 

r 

J=2 

IF  (L.  EQ  . ) J = 1 
NM=NMISS(J) 

DO  450  I Tc=l, 2 
DJ  400  F=1,NM 
DO  350  N=l,2 
IST-0 

IF(N.EQ.l)  S = ST A°TI  ),M) 

IF ( V. EQ. 7)  3~STQP( J,F) 

IJ=  TONOFF (J,M,N  ) 

JQ-  JONOFF ( J, M, N ) 
r 

C CHOCF  FOP  r AY  SPECIFICATION 
r 

IF ( Id  . f 9. 0 ) GO  TO  750 
IF ( IO.MF.1)  GO  TO  740 
IF(ST3P( J,J0).rT.99)  GO  TO  350 

i* 

ST ART/STOP  CRITERIA  IN  TrPVS  OF  END  MISSION 


IJNJF',(J,",N)=0 

3A(U,H,N)=7woaY 
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ooin 

IS=STOP< J,J0)+2-N 

00114 

IF(N.EO.I)  START!  J,f')=IS 

00115 

IF(N . EQ.  2 ) STaP(J,R)=IS 

00116 

SU(J/8/N)rKNTGt.l?(13»l) 

ooin 

GO  Til  36  0 

00119 

C 

00119 

c 

STAPT/STOF  DEPENDS  ON  DESTSUCTION  LEVEL 

00120 

r* 

00121 

?40 

JT-TARCFTCJ/M) 

00122 

AO=JONOFE( J,M,N)/100. 

00123 

IF(  S.GT.90. A NT.  C ( JT, IP) . 3F . AO ) IST=1 

00124 

IF ( 1ST. EO. 0 ) GO  TO  350 

00125 

IONOKF(J,E,N)-C 

00126 

IS=  ID AY  + l-N 

00127 

Ip(N.EQ.l)  STAKT(J,m)=IS 

00128 

IF(N. EQ. 2)  STOP ( J/F)  = IS 

00120 

oAf J,M,N)=3HDAY 

00130 

SB(J,8/N)rXNTGER(IS*l) 

00131 

350 

CONTINUE 

00132 

400 

CUNTINUF 

00133 

450 

CONTINUE 

00134 

509 

CONTINUE 

00135 

c 

00136 

c 

CHECK  TO  £EF  IF  EITHER  SIDE  4 AS  COMPLETED  ALL 

OFFENSIVE  MISSIONS 

00137 

c 

00138 

r 

VARIABLES  ARE 

00139 

C 

ICAY=CURRENT  DAY 

00140 

r 

NOIV£=MAX  DAYS 

00141 

C 

1PEF=FLAG  cOR  DEFENSE  MISSION 

00149 

r 

JENOf  = EL  AG  TO  CONTINUF  EVEN  IF  ONLY  DEFENSE  LECT 

0014? 

IENP=1 

00144 

I F ( IDAY.GT.NOAVS1  GO  TO  800 

00145 

DO  700  L=l,2 

00146 

lih=NVISS(L) 

00147 

DO  650  ‘!-l,Nw 

00148 

IDEEr0 

00149 

IF  ( Uji  it(  L,  M,  1).  EC.  5RSUCAP.OD.nN  IT  (L,M,  I).  EG.  5HVFCAP.  OP.  UN  IT  (L,M,1) 

00150 

♦. EQ.5KDL I .JR.UNIT(L,F/1).EQ.5HSLI  ) IDEF^l 

00151 

Ir(Tr'AY.CT.3TDP(L,>,).'3R.lPPl(L/M).fcO.O)  GO  TO 

650 

00159 

IF(  IPFE.EO.t.AN’D.JFNPC.EO.n)  GO  TO  650 

001  5"1 

GO  TO  70P 

00154 

66  0 

CONTINUE 

00155 

GO  TO  800 

00156 

709 

CONTINUE 

0015? 

I ESP =? 

0015° 

RETURN 

00159 

V* 

00160 

r 

TERMINATE  BATTLE 

00161 

00162 

ICO 

JO  >00  L- 1 / 2 

0016? 

NP  = NT’Lty  (L) 

001  04 

NC=NCdVPS(L) 

00165 

Oil  900  K=1,NP 

00166 

OJ  350  m,\c 

0316/ 

L 1 VrLv.  ( 1.  / E (I)  - "OMPLY  (L/K  / I)-LIV°LY(L,K/I) 

0 0 1 6 Q 

-J  r.  {1 

C3N7  PIPE 
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00159 

900 

CUNTINUF 

00170 

IF(JDAY.EQ.l)  CO  TO  98? 

00171 

DO  982  I = ?,Jim 

00172 

DO  982  J=l,19 

00173 

expsc  j,i)=EXPS(o#n+EXPscj/i-i) 

0017  4 

982 

CONTINUE 

00175 

983 

CONTINUF 

00176 

RETURN 

00177 

END 

r~r 
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SUBROUTINF  SCHFD!  IDAY, ITS) 

C 

C THIS  ROUTINE  SETS  UP  THE  MISSION  SCHEDULE  FOR  THF  DAY 

C 

REAL  LRPFF 

DOUBLE  PRECISION  nC0MPS,PPLF.X,09IG,TARG,TTS 
INTEGER  ORlCIN,TARGET,START,STl)P,UMAX,UMIN,VREAnY 
INTEGER  UASK,IJGOT 
REAL  LIVPLX, NOPS 

DIMENSION  SRT(2,10,5),SR30T(2,10,5),A(5),JKPLrN(2,10) 

COMMON/ BLOCKS/ DSO NIT! 2,20,2) ,SCOMPS! 2,20,5),COMPS! 2, 20,5 ), 
♦STRAT(2,9C,4),ADEFAT( 2, 70, 2), AG FILL! 2, 20, 1 0),SRATE( 2, 2,5), 

♦DCOMPS! 2,10 ),MAXR! 2,20), LRDEF! 2,20), WSTWX! 2,20), BMDEF! 2, 20), 
+DRMAX(2,20),SP£Er(2,20),IRRTIM(2,5),  SR30MX! 2, 5 ) , IM AYR! 2, 20) , 
+1LRDFF! 2,20), IWSTVX! 2, 20), IBMDFFC 2, 20 ), NCQNPSI 2) ,NSUNIT( 2) 
COMMON/BLOCKC/COMPLX(2, 10,10), 

♦DPLF.XI 2,1C),DTSLI{2, 10),SURFAC(2,  10),  OEFA C! 2, 1 0), 1 CYCLE! 2, 1 0) , 
HREPL(2,1C),REPOPS(2,10,2),OPS( 2, 11 ) , REPAIR! 2, 11 ), 
♦NPLFX(2),VTIME!2),  NDAYS, JWXDEF, JLRDEF,WXSURV, DELAY, 

♦OPSLCH,OPSLND 

COMMON/RLOCFT/IONOFF! 2, 20, 2) , JONOFF! 2, 20, 2),S1 ! 2, 20, 2),S 2! 2,20,2), 
♦MTS!2,20,P),UNIT(2,20,2),SA(2,20,2),SB(2,20,2),TTS!2,20), 

♦RANGE! 10,10),1PANGE( 1 0, 1 0) ,DVISS !2,20 ), IPRI ! 2, 20 ),OR IG! 2, 20), 
+TARC!  2,20), UMAX!  2, 20), "UN!  2, 20 ) ,OR  IGIN!  2,  20 ), TARGET!  2,20), 
♦IUNIT!2,2C),ST!ST!2,20),STOP!2,?0),UREADY(2,20), 

♦DAY! 30),  KT! 30),IWX! 30),NMISS!2) 

COMMON/BLOCFE/LIVPLX! 2, 10,10 ),U ASX! 2, 20,3), I'GOT! 2,20,3), 
+SR30!2,10,5),URUP!20,5,8),ATRDN!20,5,8),ADBASE! 2,10) 
CCMMON/BLDCKE/SR! 2, 1 0,5 ) , IPTY! 2, 9 ) 

COMMON/BLOCKH/ISCHED(2,20,8),1U( 2,20),JU! 2, 20 ) ,NOPS ! 2, 10) 


IF! 1TS.NE.1)  GO  TO  350 
c 


C DETERMINE  WHICH  COMPLEXES  ARE  IN  REPLENISHMENT 

C 

DO  150  L=1 ,2 
NP=NPLEX!L) 

DO  100  F=1,NP 
JKPLEN!L,K  )=0 

IF! ICYCLE!L,K).LF.O)  GO  TO  100 
J=! IPAY-1)/ICYCLE(L,K) 

JJ  = IDAY-J*ICYCLE!L,tf  ) 

JL=ICYCLF(L,K)-JJ 
IE!JL.GE.IREFL!L,F))  GC  TP  100 
JRPL  EN!L,K)  = 1 
100  CONTINUE 
150  CONTINUE 
C 

C CONSTRUCT  TODAYS  vTSSTON  SCHFDULF 


DO  700  L = I ,2 
NM=*!MISS!L) 

DJ  250  M=1,M 
90  200  KK=l,3 
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C ISCHED=0  IF  NO  FISSION  ELS^  PRIORITY  OF  MISSION 

C M=MISSION  NO. 

C KK=TIME  STEP 

C 

ISCHFDCL,F,KK)=0 
200  CONTINUE 
C 

C MISSION  SCHEDULER  FILTFP 

C 

IFCIDAY.LT. ST APTCL/M). OR. IOAY.GT. ST OP(L#M).QK.UMAK(L/M).LT.l. OK. 
♦iPRI(L,M).LT.l)  GO  TO  250 
Il=OR IGIN  CL/M) 

I2=TARGET(L,M) 

IUN=IONIT(L,M) 

IUN1=IUN 

IDEF=0 

IF(0NIT(L,M,l).F.0.5HSUCAP.QR.UNIT(L,M,l).EQ.5HVFC»P.OR.0NIT(L,M,l) 
♦ .EQ.5HDLI  .08.UNITCE,M,1).EQ.5HSLI  ) IDbF=l 

C 

C IF  ORIGIN  IN  REPLENISHMENT  AND  "D"  no  offense  scheduled 

C 

IF(JRPLEN(L,I1).E0.1. AND. RFPO»S (L, 11,2 ) . EQ. 1 HD. AND. 

♦I0EF.EQ.0)  GO  TO  250 
C 

C SCHEDULER  KILL  GET  NT  DR  RANGE  DEFAULTS  AS  NEEDED  AND  AVAIL 

C IN=1  FOR  BAD  ELSE  2 FOR  GOOD 

C I R=1  FOR  LONG  ELSE  2 FOR  SHORT 

C DEFENSF  MISSIONS  DO  NOT  LOOK  AT  RANGE 

C N=1  FOP  NORMAL  UNIT 

C N-2  FOR  BAP  NX  DEFAULT 

C N=3  FOR  LONG  RANGE  DEFAULT 

C 

N=1 

IW=INX(IDAY) 

IR=2 

1FCL.EQ.1.AND.I2.GT.0)  19  = 1 P ANGEC 1 1, 1 2 ) 

IFCL.EQ.2.AND.I2.GT.0)  1°= IR ANOE( I 2# II  ) 

IF(IW.GE.INSTNX(L,IUN)>  GO  TO  ?1C 
IF{I3NDE'!,(L/IUN).EQ.O.OP.JNXDEF.EO.O)  GO  TO  250 
IUN1=IBWDEF(L,1UN) 

N=2 

210  IF(TR.GE.IMAXR(L/IUNl).OR.IDFF.EC.l)  CO  TO  230 
IF(ILRDFE(L/IUN)  . EO. 0. OR. JLo’EE. EC. 0 ) GO  TO  250 
IUN1=ILRDIF(L,IUK) 

N = 3 

IFCIH.LT. INS TNXCL/I UNI))  GO  TO  ’so 
230  IU  (L/  M)  = IU  S'l 
JUCL/M)~N 
1P=IPRICE#M) 

IPTYCL/ IU) =1 
DO  240  K=1,P 
IT=MT5CL/U/K ) 

IFCIT.EQ.O)  in  TO  240 

r* 

C SCHFrULF  FISSION  UAsr=rESI»Er  PLUS  READY 

C 
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00113 

ISCHEO(L,V,IT)=TPRI(L,M) 

00114 

UASK(L,M,N)  = UASK(L,M/N)-HJMAX(L,M)-H!BEADY(L,V) 

00115 

240 

CONTINUE 

00116 

250 

CONTINUE 

001X7 

300 

CONTINUE 

00113 

C 

00119 

c 

COMPUTE  THE  NUFBFR  JF  POSSIBLE  OPERATIONS  AT  CV  AND  AIRBASE  ELFMEN 

00120 

c 

00121 

350 

DO  500  L = l,2 

00122 

NP=NPLE»(l ) 

00123 

JB=5 

00124 

IF (L. EQ. 2)  JB=6 

00125 

DO  400  K=1/NP 

00126 

NOPSCL, 10  = 0.0 

00127 

IJ  = 1 

00123 

IF (CQMPLX(L,K/JB).GT. 0.001) 

00129 

♦IJ=(C7NPLX(L,X,JB)-LIVPLX(L,K,J9))/COMPLX(L,K,JB)*10.0*1.99 

00130 

c 

00131 

c 

COMPUTE  AVAIL  OPERATIONS  AND  ADO  IN  REPAIRS 

00132 

c 

00133 

F = 1.0 

00134 

IF(JRPLFN(L/K).EQ.l)  F-REPOPS (L,K, 1 ) /ICO. 

00135 

ADD=AXim(COMPLX(L,K/je)-LIVPLX(L,K,JE)/REPAIR(L,IJ)*COMPLX(L,K/JB 

00136 

♦)) 

00137 

AD8ASE(L,r)=ADBASE(L,K)+APr 

00138 

LIVPLX(L,K/JB)=LIVPLX(L,K,JB)+ADD 

00139 

NOPS(L,n=OP3(L,I  J)*COMFLX(L,K,JB)*F 

00140 

100 

CONTINUE 

00141 

500 

CONTINUE 

00142 

c 

00143 

r 

RESCHEDULE  UNFILLED  PRIORITY  1 ANH  2 MISSIONS  FROM  LAST  TIME  STEP 

00144 

C 

IF  SAME  MISSION  NOT  SCHFPULFP 

00145 

C 

00146 

IF ( ITS. EQ. 1 ) GO  TO  535 

00147 

DO  530  L = l,2 

00148 

NM  = NM ISS (L ) 

00149 

DO  5 20  M-l  ,N.V 

00150 

in=irs-i 

00151 

IF(ISCHEr(L,M/ITl).EQ.O.OR.lSCHFr(L,M/ITl).GT.2)  GO  TO  520 

00157 

IF( ISCHED(L,M,ITS).GT.P)  GO  TO  520 

00153 

ISCHED(L/P/ITS)=I3CHFt(L/M/ITl) 

00154 

520 

CONTINUE 

00155 

530 

CONTINUF 

00156 

c 

00157 

c 

UPDATE  AIRCRAFT  STATES 

00158 

c 

00159 

525 

IC  = 0 

00160 

DO  555  L=),2 

00161 

NP  =N7LEX (L ) 

00167 

DO  550  K=1,NP 

07161 

I C - T 7 1 

07164 

DO  545  1 = 1,5 

00166 

IFIL.EG.I .AND.I.E0.5)  co  TO  545 

00166 

A I RDN(  IC,l,l)  = MP.r,N(IC,I,l)+AIRnN(IC,I,2) 

00167 

A I ?Up ( IT, 1,1  ) = AI°Uo( xC/1,1) ♦AI7UF(IC,I,2) 

00169 

00  540  J=2,7 
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00169 

AIKDN(IC,I,J)=AIRDN(IC, I,J+1) 

00170 

A I RUP ( IC,I,J)=AIRUP(IC,I,J*1) 

00171 

540 

CUNT  I NUF 

00172 

A I RDN{ IC,I,8)=0.0 

00173 

AlRUP(IC,l,8)=0.0 

00174 

545 

CONTINUE 

00175 

550 

CONTINUE 

00176 

555 

CONTINUE 

00177 

C 

00178 

0 

PROJECT  SORTIE  RECUIREWFNTS  FORDING  FOR 

PRIORITY 

1 AND  2 

00179 

c 

SURGE  FOR  PRIORITY  1 EFVER  FXCFFDING 

30  DAY  UTILIZATION 

00180 

c 

CANCEL  MISSIONS  FOR  WHICH  THERE  ARt  INSUFFICIENT 

RESOURCES 

00181 

c 

00182 

DU  800  L=l,2 

00183 

11  = 4 

00184 

IF(L.E<1.2)  II  =5 

00185 

NM  = NM  ISS(L ) 

00186 

NP=NPLEX(L ) 

00187 

00  570  X=1,NP 

00188 

DO  570  1=1, II 

00189 

SR30T(L,K,I)=SR30(L,K,I) 

00190 

SRT(L,K,I)=SR(L,X,I) 

00191 

570 

CONTINUE 

00192 

DO  700  I°=l,9 

00193 

IF(IPTY(L,IP).EO.C)  GO  TO  700 

00194 

DO  680  IT=ITS,8 

00195 

DO  670  F=1,NM 

00196 

1F(  ISCHFD(L,M, IT)  .NE.IP)  GO  TO  670 

00197 

IO=ORIGIN(L,M) 

00198 

IUN=IP(L,K) 

00199 

DO  660  1=1, TI 

00200 

A(I)=SRT(L,IO,I) 

00201 

ANEED=(UMAX(L,M)+URFACY(L,w))*SCOMPS(L, 

IUN, I ) 

00202 

IFIANEED.LT. 0.001)  GO  TO  660 

00203 

IF(LIVPLX(L, 10, T).LT. 0.001)  GO  TO  665 

00204 

A(I)=(ANFFD/LIVPLX(L,IO,I))+SPT(L,IO,I) 

00205 

IF(A(I).CT.S3ATE(L,1,I).ASD. IP.GT.2)  GO 

TO  665 

00206 

IF(A(I).GT.SRATE(L,2,I).SND.IP.GT.1)  GO 

TO  665 

00207 

IF(  A(I)+SR30T(L,IO,I).CT.SR3')MX(t.,l))  GO  TO  665 

00208 

660 

CONTINUE 

00209 

GO  TO  666 

00210 

665 

ISCHED(L,F,IT)=0 

00211 

GO  TO  670 

00212 

666 

DO  667  1=1,11 

00213 

SKT(L,TO,I)=A(I) 

00214 

667 

CONTINUE 

00215 

67  0 

CONT1NUF 

00218 

6 80 

CONTINUE 

00217 

700 

CONTI NUF 

00218 

300 

CONTI NUF 

00219 

RETURN 

00220 

END 
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00001 

0000? 

00003 

00004 

00005 

00006 
00007 
00009 

00009 

00010 
00011 
0001? 
ooon 

00014 

00015 

00016 

00017 

00018 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 
00027 
0002« 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 
0004"’ 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 
0005? 

00054 

00055 


SUBROUTINE  ht'COVS 

THIS  POUTINE  FFCOVEPS  AIRCRAFT  WAITING  TO  LAN” 

REAL  LRDFF 

DOUBLE  PRECISION  i'CO*'FS,PPLEX,0'HG,TAPa,TTS 
INTEGER  UASK,UCOT 
REAL  L IVPLX, NOP5 

COMMJNmOCKB/DSUNIT(2,2G,2),SCOFPS(2,20,5),COKPS<2,20,5), 

♦ STRAT(2,-’0,4),AneFAT(7,20,2),AC>tILL(2,20,10),SRATE(2,7,5), 

+ DCOPPS(7,10),VAXR(  2,20),I.RPFF( 2, 20) , WSTWX( 2, 20 ) , BRTEFI 2, 20 ) , 
♦DRMAX(2,70),SPFED(2,20),TRRTIM(2,5),  SR30MXI 2,5)  , It«,AXR(  2, 20 ), 
+ILRDEF(2,20),IKSTWX(7,20),IPWDFF(2,20),NCOMPS(?),NSUNIT(2) 
COHMON/PLOCKC/COWPLXI 7, 10,1  0), 

♦DPLFX(2,10),QTSLI(2,10),SURFAC(2,10),  DEF AC ( 2, 10 ), I C YCLF( 7, 10 ), 
+IRFPL(2,10),PEPOPS(2/10,2),OPS(2,11)/R£PAIR(2/11), 
♦NPLEX(2),HTIME(2),  NO  AYS, JVXPEF, JLRDFF, FXSURV,PEL AY, 

♦0PSLC9,0DSLND 

COMMON/PLOCKE/LIVPLX(2,10,10),UASK(2,20,3),CGOT(2,20,3), 
♦SR30(2,10,51,AIRUP(20,5,8), A IRDN< 70, 5, 8), ADBASF( 2, 1 0) 
CQFPON/BLOCKH/ISCHF.O(  2,20,8),TU(  2, 20)  , JU(  2,20) ,NOPS(  2, 10) 


RECOVER  AIRCRAFT  WAITING  TO  LAN” 


RECOVERY 
BEGINNING 
8 EG  INN  I NC 
END 


RR  TIMF 
0 
1 

0 OR  1 


POSSIBLE  TAKE  OFF 
CURRENT 
NEXT 
NEXT 


DO  500  L = l,7 
NP=NPLEX(L) 

11=4 

DO  400  F=1 , NP 
ICX-K 

IFCL.EC.2)  ICX=NPLEX(1)+K 
DO  300  J=l,1000 
NJ  = 0 

CQ  200  1=1,11 

IF(4TRUP(ICX,I,1).LT.0.0001.0R.NOP3(l.,K).LT..001)  GO  TO  200 
A= AMI N1 ( 1.0,41 RUPC I CX, 1,1 ),NOPS(L,K)/OPSLND) 

NJ  = l 

NOPSCL,K)=A8AX1(NOPS(L,K)-A*OPSLND,0. ) 

AI RUP( ICV, I, 1 ) = AIP”P(ICX,I,1 )-A 
ISR=IRR?IN (L , I ) *1 
r Rrt  = VT NO ( I RR, 8 ) 

AM”N(ICX,I,IRR)  = AIRCN(ICX,  I,IR2)+A 
200  CONTI’IUF 

IF(NJ.EQ.O)  13  TO  400 
300  CONTINUE 
400  CONTINUE 
500  CONTINUE 
RE  TURN 
ENT 
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00001 

00002 

00003 

00004 

00005 

00006 
00007 
00003 
00009 
0001  0 
0001  1 
00012 

00013 

00014 

00015 

00016 
00017 
00019 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 
00027 
00029 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 
00039 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 
00049 

00049 

00050 

00051 

00052 

00053 

00054 
00056 
00066 


subroutine  launch!  it,  i r a y ) 

r* 

C THIS  ROUTINE  LAUNCHES  AIRCRAFT  TO  FILL  SCHEDULED  MISSIONS 

r 

HEAL  LRPFF 

DOU«LK  PRECISION  DCOHP S, OP LF X,OR  I G, T A EG, TTS 

INTh  SEP  OF  [G l N,TADCET, S TART, STOP, UM»X,UrtIN, USE ADY 

INTEGER  MASK, HOOT 

REAL  LIVPLX/N1PS 

DIMENSION  A ( 5 )/ AN  FED ( 5 ) 

COMMON/PLCCX3/PSONIT( 2,20,2 )#SCOMPS( 2, 20,5 ),COFPS( 2,20,6), 

+ 3TRAr(7,7P,4),A9Ec‘AT(7,  70,7),AGKILL(2,20,10),SPATE(  2,2,6), 
+DC1MPS(2,10),MIXR(2,20),LROEF(2,20),WSTRX(2,20),BWDFF(2,20), 
+0RMAX(2,20),SPFED(2,20),IRRTIM(2,5),  SR30MX(2,5),IHAXR(?,20), 

+ ILP9EF(2,20),Ik'STWX(2,20),IPHOEp'(  7,  20  ) , NCOMPS!  2)  , NSUNIT  ( 2 ) 
COFMJN/9LGCKC/COMPLX!2,10,10), 

+9PLEX(2,10),OTSLI(2,10),SDRFAC(2,10),  D EF AC( 2, 10 ) , I CYCLE! 7, 1 0 ) , 
+IREoL(2,lP),REP0PS(2,lC,2),0PS(2,ll),PFF’AIR(2,ll  ), 
+NPLEA(2),PTJVE(2),  NDAYS,JWXPEF,Ji.RDFF,KXSOPV,DFLtY, 

♦UPSLCH,OPSLND 

COMMON/PLOCKD/IONOFF(2,?0,2),JONDFF(2,20,2),S1(2,20, 2),S2(2, 20, 73, 
+MTS(2,20,F),UNIT(2,20,2),SA(2,20,2),3B(2,20,2),TTS(2,2C), 

+xANGF( 10,1 0), IRAN GE(1 0,10), PMISS! 2,20), IPRI( 2,20 ),ORIG( 2, 20), 

♦ T ARC!  2, 20),  PM  AX  ( 7, 30,  MR  IN  (2,20),  ORIGIN!  2, 20),  TARGET!  2,70), 
+IUNIT(2,20),START(  2,  20 ) ,STOP ( 7,  2C)  ,1'RE AP Y ( 2,  20 ) , 

♦DAY!  30),  >:X(30),  1 WX( 30 ), NM T SS(2  ) 

COMMON/PLCCXE/LI  VPLY(2,10,10)  ,P  ASK  ( 2,  2C,  1 ),L'GOT(  2,  20,3  ), 

+SS3C! 2,ln,5),AIRl’P(20,6,R),ArRrN(?0,5,B),ACRASF(2,10) 
C0MVQN/PL0CKF/SR(2,1C,5),TPTY(2,9) 

COMMON/?LOCKH/ISCH£0(2, ?C, 9 ) , IU( 2,20 ) , JU( 2, 20) ,MOPS( 2, 1 P ) 
CJUMOM/RLOCKI/NFISVP ( 2,4 ) , N ISUP! 2,20, 4 ) , NUNI'P! 2, 20, 4 ) , IPEACY! 7,70) 
COMMON  / A I RFX? / 6X73(19,10) 

C 

C NVIS"n=NO.UF  MISSIONS  ENGAGED  IN  CURRENT  PERIOD 

C IN  = (1  SUCAP,  2 V FC AP,  3 SLI/CLI,  4 OFFENSIVE) 

C SISUP  =M IS  SIGN  NO.  FUR  EACH  ENGAGED  MISSION 

C •NLINU?  = FDRCS’  UNIT  NO.  EOF  FACE  6VGflGF:D  MISSION 

C SR=PAtLY  SORTIE  RATE 

C 3x30-30  PAY  UTILIZATION  FOUND 

C ANFF.,J  = NQ.  OF  FORCE  UNITS  NEEDED  TO  FILL  MISSION 

C 

Z FISSION  PRIORITY 

C SURTTE  RATE  1 OR  2 >2 

C LE  NORMAL  FILL  FILL 

r NUR.VAL  L ’ SU^CS  eILG  NO 

C CE  SURGE  NO  NO 

c 

C 30  PAY  UTILISATION  NFVFR  EXCFEPEO 

70  500  L = 1 , 0 
Ii -4 

1F(L.EG.?)  11=6 

NV=N«1SS(L) 

DO  100  I \ = 1 , 4 

N M I S J s ( L , I N ) = 0 
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00057 

00058 

00059 

00060 
OOObl 
00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 
00081 
00082 
000°  3 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 
0009? 

00094 

00095 

00096 
00099 

00098 

00099 
00109 
00101 
00102 

00103 

00104 

00105 

00106 
00107 
00109 
00109 
00119 
00111 
00112 


100  CUNTTNl'F 

DU  400  I"=l,9 

IF(IPTY(L,IP).NE.l)  GQ  TO  400 
DU  300  P = 1 , N M 

IF(ISCHF9(l/m/1T) . NE. ID  GO  TO  700 

IREAPY(L,1 ) = 0 

ITHRU=0 

IO=OR IGIN(L/M) 

ICX=IO 

IFIL.EQ.2)  ICX=IO+NPLEX(l) 

IUN  = IUa,P) 

NUN=  UMAT(L,M) 

18?  IF ( ITHRl'.FQ.l  ) NUN=UPFAPY(L,V) 

IF(NUN.LF.O)  GO  TO  300 
100  QPNEED=0.0 

DO  200  1=1,11 
ACT ) =SR(L, 10, I ) 

ANEtD(I)  = N'JN*SCOMPS(L,IUN,I) 

LF( ANFEC(I).LT. 0.001)  CO  TO  200 
OFNFED=OPFFED  + A*IEFr(I)*OPSLCH 
IF(tINIT(C,8,l).E0.5HSSF  ) 0ONEED=0.0 
IF  c ANEEP(I).CT. A IRPN( ICX, I, 1 ) ) GO  TO  250 
IF(N3P3(L,IJ).LT.OPNEFP)  CO  TO  250 
IF(LIVPLX(L, IJ, T ).LT. 0.001)  GO  TO  250 
A(  I ) = A N E F D ( I)/t.TVPLX(L,IO,I)+SP(L,IO,  I) 
IF(A(I).GT.SRATE(L,l,I).ANr.IP.GT.2)  CO  TO  250 
IF(ACr).GT.SSATE(L,2,T))  GO  TO  250 
1F(A(I)+SR30(L,IO,1).GT.S93CVX(L, I))  GO  TO  250 
200  CONTIU'JF 

1F(L.E7.2)  GO  TO  20° 
l F.X--2 

90  ">04  1 = 1,4 
IEX=IEX*4 

EXPS(IEX,7D>Y)=FXPS(I5X, 1D5Y)*NUN*SCQMPS(1,IUN,T) 

20  < CONTINUE 

208  CONTINUE 

IF ( ITHRI'.FQ.O)  GO  TO  210 
IKF6QY(L,K)=NUN 
GO  TO  230 
210  1N=4 

IF ( UNIT(L,P,1).EG.5HSUCAP  ) IN=1 
IF  C UNTT(E,M,1).EQ.5HVFCAP  ) IN  = 2 

lr(  UN1T(C,N,1).F3.5USLI  .OP.  UNIT(L,h, 1 ) . SO. 5 HDL1  ) 
NF ISl'P  (L,  IN)  = NF  ISl'P  U,  IN)  *1 
N=NVT 3U? (L,  IN  ) 

M1SUP( L, N, IN ) =S 
NUNU:>(L,N,  IN)=NUN 
IGCHFPCL,! ,IT)=0 
230  1)0  240  1=1,11 
3R(E,I0,l)=A(I) 

tF(ANEEP(I).LT. 0.001)  GO  TO  240 

3 R 3 C ( G , ID,  I)=3R30(L,I0,I)  «-ANFE9(  I)/LIVPLX(L,  IO,T) 

A l 72*i(  iCX,  l,l)=AI7DN(  ICX,  I , l ) - ANF.F.C  < 1) 

24?  CONTI  NIT 
y = J"(^,F  ) 

'JGOT(L,‘,K)=UGOT(L,M,X)*NUN 
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00113 

nops(l,io)=nops(l,io)-opne£P 

00114 

ITHPW  = IT"FU-»1 

00115 

IF ( ITHRP.CT. 1 ) GO  TO  200 

00116 

GO  TO  1°0 

00117 

C 

00118 

r 

TRY  TO  PILL  WIT«  LESS  UNITS  10VN  TO  MIN 

00119 

C 

00120 

250 

NUN=NUN-1 

00121 

IF(NUN.LE.O)  GO  TO  300 

00122 

IFINUN.LT.  UMIN(L,M).AND.ITHRU.EC.O)  GO  TO  300 

00123 

GO  TO  1°0 

00124 

300 

CONTINUE 

01125 

400 

CONTINUE 

00126 

500 

CONTINUE 

00127 

RETURN 

00123 

END 
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00001 
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00003  C 
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SUBROUTINE  ENGAGEUDAY) 

THIS  ROUTINE  CONDUCTS  THE  ENGAGEMENT  OF  FORCES  TN  THE  SCHEDULED  MT 
REAL  LRTEF 

DUU3LE  PRECISION  PC3MPS,rPLEX,09  IC,?  AP.G/TTS 
INTEGER  ORIGIN,TARCET,STAKT,STOP,UMAX,UHIN,URFADY 
INTEGER  UASK/UGOT 
REAL  LIVPLX/NOPS 

DIMENSION  m2),VFKILL(?),AIRCr(5),AIRLOS(5) 
COMMON/nLCCKB/DSUNIT(2,20,2),5COMPS(2,20,5),COMPS(2, 20,5), 
♦STSAT(2, ?C,4),ADEFAT(2/?0,?),ACKILL(2,20,10),SPATE(2,2,5), 
«-DCOMP3(?,10),MAXP(2,20),LRDFF(2,20),NSTNX(2,20),BwrFF(2,20), 
+ORMAX(2,20),SPEED(2,20),IRRTIM(2,5),  SR30MXI 2, 5), IMAXR( 2, 20), 
+1LRDEF(2,?0),IWSTWX(2,?0),IBSOE5(2, 20),NCOMPS(?),NSUNIT(2) 
CJMMQN/RL0CKC/C3FPLX(2,10,10), 

♦DPLEX(2,lf ),DTSLI(?,10),SURFAC(2,10),  OEF AC( 2, 1 0 ), IC YCLF( 2, 10 ), 

+ 1REPL(?,10),REPDPS(2, 10,2),QPS(2,  11 ) ,REP AIR( 2, 11 ), 

+NPLEX( 2),MTIME(2),  ND AYS , JVXDEF, JLRDEE, MXSURV,DEL AY, 

+ OPSLC!l,OPSLND 

COMMON/PLOCKD/IONQFF(2,20,2),JONOFF(2,20,2),S1(2,2C,2),S2(2,20,?), 
♦MTS(2,20,F),UNITC 2, 20, ?),SA( 2,20, 2), SRI 2, 20,2), TTS( 2, 20), 
♦RANGE(10,10),IKANCE(10,10),DMrSS( 2,20 ), IPK I ( 2, 20 ),0RIG( 2, 20) , 
♦TA9O(2,20),0MAX(2,20),UMIN(2,20),ORIGIN(2,20),TARGET(2,20), 

+ IU N IT(2, 20), ST  APT (2, 20), STOP (2, 20), UREADY( 2,20), 

+ D AY( 30  ) , VX(30),I«X(30),NVISS(2) 
COMMON/’’LOCKE/LIVPLX(2,1Q,10),UASK(2,20,3),UGOT(2,20,3), 

+SR30(2,1 0,5), AIRUP(20,5,P), A rRDN(20,5, 8 ), ADB ASE( 2, 1 0 ) 
C0KMUN/BL0CKH/ISCHED(2,20,8),U’<2,20),JU(2,20),NOPS<2,10) 
COMMON/BLOCKI/NMISUP(?,4),MISUP(2,20,4),NIINUP(2,20,4),IRF.ACY(2,20) 
COMMON  /A IRFXD / EXPS(19,10) 

3FND  IN  »N  ATTACK 


DO  900  L -1,2 
LL  = 2 

IF  ( L«  F.3. 2 ) LL=l 
NM=NMISUP(L,4) 

IF(NM.EO.O)  GO  TO  800 

SEQUENTIALLY  ENGAGE  OFFENSIVE  MISSIONS  BLUE  FIPST 

00  700  J-l ,NM 
M = N ISUP(L,J,4) 

NUN=NUNUP(L,J,4) 

j i n = fi  ;*  n 

UBACK-NPfl 

IO=3RICIN(L,M) 

IT=TARGFT(6,M) 

1 CO  = I 0 

ICT=N?LEV ( 1 ) *IT 
IFIL.EQ.2)  ICO=NPLFX(1 )+I3 
IFIL.EG.?)  ICT=IT 
1 U N = 1 U ( !. , V ) 

IC-0 
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00057 

00059 

00059 

00060 
00061 
00062 

00063 

00064 

00065 

00066 
00067 
00063 

00069 

00070 

00071 

00072 
0007? 

00074 

00075 

00076 

00077 

00078 

00079 
00090 
00081 
00082 
00083 
00034 

00085 

00086 
00087 

00089 
00087 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 
000  93 

00099 

00100 
%FTNDIN 
00101 
00102 

00103 

00104 

00105 

00106 
00107 
0010? 

00109 

00110 
00111 


IF(  L.EO.l.ak.SC0NPS{L,TUN,5).E7.0)  00  TO  600 
C 

r ENGAGE  ATTACKING  SSM  SHIPS  KITH  SCCAP 

C 

I Tw  = IEANGF(IT,T3) 

1TM  = 9TIV£(1TN)  ♦ 1 
ITN  = HI  N0( ITH,  9 ) 

IRR  = HIN0(9,IRHTIK<2,5)+1) 

N=1 

NMP=NVISUP(LL,N) 

IF(NKD.FP.O)  GO  TO  600 
200  ITHRU=0 
C 

C ENGAGE  SSP  ATTACK  HTH  EACH  SUCAP  AT  TARGET 

C NO  CONSTRAINT  ON  GETTING  OFF  DECK  LIKE  DLI/SLI 

C AS  IN  ALL  CASES  PO  NOT  USE  MORE  THEN  IS  REGUIRF.P 

C 

DO  500  K-1,MMD 
MD=MISUP(LL,K,N) 

IUD-IU(LL,HP) 

NUND=NUNUP(LL,E,N) 

Jjr?0=JU(LL,MD) 

IF(0?IGIN(LL,MI1).NF.  IT.  OR.  NUND.  EC.  0)  GO  TO  500 
IF(ACKILL(LL, IUD, 5). LT. 0.00001)  CO  TO  500 
lNEED=PfcACK/AGKILL(LL,IUP,5)+0.999 
IF(  INEEP.LE.O)  GO  TO  500 
IUSFO=MINO(INFFD,NUND) 

ITH9U-1 

NUNUP(LL,K,N)=NUNUP(LL,K,N)-TUSEP 

IR=HIN0(IU3Er!,IREAPY(LL,HP)) 

NUNUP(LL,K,N)=NUNUP(LL,K,N)+IR 
IPEADY(LL,MD)=IRFAPV(LL,HP)-I9 
<IINP  = IHSFr 
UPPAX=9999. 

F=1.0 

IFUWX(IPAY).EO.l)  P=WXSU1V 

IF(S"EEr(),IUP).CT.0.0.  ANP.DTSLK  2,  ID)  . G T.  0.  0) 
+UpHX-((rRMAX(l,I0P)*SUPFAC(2,I0)*F-25.)/SFFED(l,IUQ)/12.C-DFLAY) 
+/DTSLl(2, 101+1.0 
UPMAX  = AVAn(O.C,UP’«AY) 

C ENGAGE  SUCAP  WITH  AIR  AND  SURFACE  DEFENDERS 

C 

CALL  ’1F'rFND(LL,L,  10,100,  I,,SrP,UPMAX,UIND,VF,VFKILL,IPAY) 
LINE:00103  POSS19LF  TO  INDEX  NOTIFICATION  INSIDE  LOOP 

: LL=PFFFNPE9  L = A TT  ACKER  10-OPIGIN 

C ACCOUNT  FOR  SUCAP  LOSSES  AND  SCHEDULE  LANriNG  OF  SURVIVING  SUCAP 

DO  450  11-1,4 

C 1FFENSE  LOSSES  ACCOUNTED  FOR  IN  PEFEKP 

C 

ALOST-(IUStD-UINP)*SCaP?S(l,IUr,II) 

AL  A VP  rl!  I vr  * SCOMPS  (1 , I ""  , 1 1 1 
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00112 

00113 

00114 

00115 

00116 

00117 

00118 
00110 
00120 
00121 
00122 

00123 

00124 

00125 

00126 

00127 

00128 

00129 

00130 

00131 

00132 

00133 

00134 

00135 

00136 

00137 

00138 

00139 

00140 

00141 

00142 

00143 

00144 

00145 

00146 

00147 
00149 

00149 

00150 

00151 

00152 

00153 

00154 

00155 

00156 

00157 
00153 
IFTNOI1' 

00159 

00160 
00161 
031o? 

00 1 6 1 
00164 
C 01 65 
001  oo 


LlVPLX(l,IT,II)=LIVPLX(l*IT,II)-APINl(ALJSTxLIVPLX(l,IT/II)) 
AIRUP(ICT,IT/ITM)=AIRUP(ICT,TI/  IT*) ♦ALAND 
450  CONTINUE 
C 

C COMPUTE  AIR-TO-GROUND  K ILLS  BY  SUCAP 

C 

IF  ( 1C. PCI. 0)  UIN=U IN- AMI N1 (UIN#WIN0* AGKILL( l,10r,5) ) 

OB ACK=UR ACK-AHIN1 (UR ACK,U INP * AGK ILL ( 1/100,5)) 

C 

C ACCOUNT  FOR  CEFFNOERS  KILLED  3Y  SUCAP 

C 


LIVPLX(2,IO,3)  = LIVPLX(2,IO,3)  - VFKILL(l) 

LIVPLX(2,TU,4)  = LI VPLX( 2,10/4)  - VFKILL(2) 

fcXPS(18,IDAY)=EXPS(1 8, ID AY) ♦ VFK ILL(1 ) 
EXPS(19/IDAY)=FXPS(19,irAY)+VFKILL(2) 
AIRUP(TCQ,3,1)  = AIRUP(ICO,3,l)  ♦ VF(1)  - VFKILL(l) 

AIRDP(  ICG/4/1  ) = AI RUP(  ICO/  4,  1 ) ♦ VF(2)  - VFKILL(2) 

IF(UBACK.LT.O. 001 ) GO  TO  550 
500  CONTINUE 


IC  = 1 


IF(IT')RU.FQ.l)  GO  TO  200 


C 

C ACCOUNT  FOR  SSM  SHIP  LOSSES  AND  SCHEDULE  RETURN  OF  SURVIVING  SSM  S 
r 

55  0 AIRPN(ICO/5*IRP)  = AIRPN(  ICO,  5/ IRR  ) +UB  ACK*  SCOM.FS(  2,IUN,5> 

LIV?LX(2,rO,a)=LI VPLX(2, 10, 5 )-( NUN-U JACK) *SCOHPS( 2, IUN, 5 ) 

C 

C ENGAGE  ATTACKING  AIRCRAFT  ANT  SSM  WITH  AIR  AND  SURFACE  PEFFNSFS 

C 

C VPKILL^FICHTERS  LOST  OFFENDING 

C TAIRCP=TOTAL  A/C  ON  GROUND 

C TAIRLSrTOTAL  A/C  LOST  (DISTRIBUTE  WITH  AIRLOS) 

C »/C  LOSS  RULES 

C 1.  IN  RR  AND  LEAST  READY 

r 2.  o^Any  FOR  SLI  CAP  OR  SUCAP 

C 3.  SLT/DLT  NOT  USED  IN  DEFENSE 

C T5FSF.  RULES  APPLY  TO  EACH  TYPE  A/C  WHICH  ARE  LOST 

C BASED  ON  RELATIVE  NUMBER  PRESENT  FOR  LOSS 

C 

600  UPMAX=9399. 

F = 1 . 0 

IF(  IWX(InAY).SC.l ) FrVXSURV 

lF(SPEED(L,tUN).GT.O.C.ANO.OTSLT(LL,IT).GT.O.O) 
♦UPMAX=((3CMAX(L/IUN)*SURFAC(LL,IT)*F-25.)/SPEFD(L/IUN)/12.C-OELAV) 
+/DTSLKI.L,  IT ) +1 . C 
UPM4Xr«y»xi(0.C,UPMAX) 

CALL  r'FFFND(L,LL,IT,IUN/NUN,UPPAX/UtN,VF,VFKILL/IDAY) 

LI  3F:  00159  °OSSI-3LE  DO  I NT  EX  MOD  IF  IC  ATION  INSIDE  LOOP 

C 

C ACCOUNT  Fok  AIRCRAFT  KILLED  TN  OEFENSF  AND  ATTACKERS  KTLLFD 

C SCHEDULE  LANCING  0,r  SURVIVORS 


C 


30  620  [=1,4 

OrrdSIVE  LOSS'S  SCroUNTED  FOL  IN  DEFEND 
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00167 

00168 

00169 

00170 

00171 

00172 

00173 

00174 

00175 

00176 

00 177 

00178 

00179 

00180 
00181 
00182 

00183 

00184 

00185 

00186 
00137 
00183 
00139 

00190 

00191 
00197 

00193 

00194 

00195 

00196 

00197 

00198 
00197 
00200 
00201 
00202 

00203 

00204 

00205 

00206 

00207 

00208 
00207 
00210 
00211 
00212 

00213 

00214 

00215 

00216 
00217 
00710 
0021 
00220 
00271 
00'27 


LIV?LX(L,IiJ,I)=LTVPLXa,IO,n-(NUN-Uiri)*SCO«PS(I./IUN,I) 

IC1=I0 

IC2=  IT 

IF(L.FQ.  2)  IC1  = IT 
IF (L . 89. 2 ) IC2=IO 
1TM=I8ANGF(XC1,IC2) 

IL=MIN0(MTIVE(ITM),7) 

AIRUP( ICO, I,  IL  + 1 ) =AIRUP(  I CO*  1/  IL*1)+UIN*SCGE'ES(L,IUN,I) 

IF ( I.NE.3.AND.T.NE. 4)  CO  TO  620 

ACCOUNT  FOR  DFFFNSF  FIGHTER  LJSO 

IF(LL.EQ.7)  GO  TC  610 
I EX=1 1 

IF(I.EQ.4)IFX=15 

EXPS(IEX,IDAY)=FX°S(IEX,inAY)*VFFILUI-2) 

GO  TO  612 

CONTINUE 

rEX=13 

IFCI.EG.4)  IFX=19 

EXP  S( IFX,1DAY)-EXPS( I F Y , ID  A Y ) + VFK ILL ( 1-2) 

CONTINUE 

LIV?LX{LL,IT,I)=LTV?LX(LL,IT,I)-VFKILL(I-2) 

AIRUP(ICT,I,l)-AIRUP(lCT,I,l)+VF(I-2)-VFKlL(,(l-7) 

CONTINUE 

COMPUTE  NUMBER  OF  AIRCRAFT  ON'  THE  GROUNO 

T A IRC  D =0  . C 
DO  550  1=1,4 
AlRGr*(I)=0.0 
DO  630  IJ=1,R 

AlRCr(I)  = A IRGD(I)+AIRr»'(ICT,I,IJO 

CONTINUE 

CO  640  *1  = 1,? 

NMD=NMISUP(LL,N) 

IF(NPD.EQ.O)  GO  TO  640 
DO  535  K=1,N«D 
.0=VISUP(LU,K,N1 
IUr=IU(LL,MU) 

NUND=NUN"F(LL,F,N) 

NNN  = 0 

IF ( M. S3. 3 ) NNN=NUNO 

IF(ORIGIN(LL,Mr).NF..IT.OP.NUND.EC.O)  CO  TO  63c 

AIRCP (I)=A  lRGD(I)+SCOFPS(LL,IUr,I)*(NNN*IRFADy(LL,HD)) 

CONTINUE 

CUNTINUF 

TAIRCD=TAIRGr+AIRCD( I) 

CGNTINUF 

COVonTF.  AIR  TO  GROUND  ATTRITION 

T A I Rl.S  = AVTNK  AGKTLL(L,IUN,4)*UTN,rMRGD*(1.0-DFFAC(LL,TT))) 
UC=NC  1KP30.L) 
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00223 

00  680  1=1, NC 

00224 

IFU.LE.4)  GO  TO  670 

00225 

(.IVPLX(LL,IT/l)=UVPLX(LL,IT,I)-*MiNl(LIVPLX(LL,IT,I), 

00226 

♦ U I N*  A3K ILL ( L, IUN,  I ) ) 

00227 

GO  TO  680 

00229 

670 

AIRLOS ( T )=0. 0 

00220 

IFITAIRCP.CT. 0.001) 

00230 

+ AI.9L0S(I)  = AIRGn(I)/rAIOGn  *TAIPLS 

00231 

IFILL.EQ.2)  CO  TO  675 

00232 

IEX=I EX+4 

00233 

GO  TC  678 

00234 

b76 

CONTINUE 

00235 

IFX  = ) 8 

00236 

IF(I.EQ.4)IFX=19 

00237 

579 

CONTINUE 

00238 

SXPS<  IFX,  ID  AY)  = EXPS(  IF.X,  ID  AY  ) + 

00239 

1 AMIN1(LIVPLX(LL,IT,I),AIRLCS(I)) 

00240 

LIVPLXILL,  IT,I)  = LTVPLX(LL,IT,T)_AMINl(LIVPLX(LL,IT,I),ArKLOS(T)) 

00241 

680 

CONTINUE 

00247 

c 

00243 

C 

ACCOUNT  FOR  PARKED  AIRCRAFT  ATTPITED 

00244 

C 

00245 

DO  695  1=1,4 

00246 

SUE=A1RL0S( L ) 

00247 

IF (SU3.LT. 0.0001 ) GO  TO  695 

00249 

00  635  I J=l, 3 

00249 

J1 =9-1 J 

00250 

A=AM1NKSU9,  AIPnN(lCT,l,JI)) 

00251 

AIRDN(XCT,I,JI)=AIRUN(ICT,I,JI)-A 

00252 

SUB=S'JB-A 

00253 

IF<3;J9.LT. 0.0001)  GO  TO  695 

00254 

t>85 

CGNTINUF 

00255 

DO  690  NK=1, 3 

00256 

N = 4-NN 

00257 

NMD  = NMISU'F(LL,N) 

00253 

IFINNP. EO.O)  GO  TO  690 

00259 

00  687  K=1 , NMP 

00260 

MD=MISUF(LL,K,N) 

00261 

IUD=1U(LU,MD) 

0026'' 

IF(0RIC-1N(LL,MP).N',.IT)  CO  TO  697 

00263 

IF(SC0FPS(LL,IUP,I).LT.C.001)  GO  TO  6e7 

00264 

ISU®=SUF/SC0MPS(LL,I,"',I)*.999 

00265 

l&=MiNO(IP?AOY(Ll,,MP),ISVB) 

00266 

A=AMIN1(SU3,I9»SC0MPS(LL,H’D,I)) 

00267 

sua=sus-A 

00269 

1REAOY(LL,MO)=IREADY(M.,FD>-19 

00269 

AI9PN(  ITT,  1,1  ) = A IRPN( ICT, 1,1 ) ♦ IB*SCOMPS(LL,IUr',I)-A 

00270 

DO  696  11=1,4 

00271 

IFCTT.EP..T)  30  TO  696 

00279 

AIRPiK  KT, 11,1 )=AIRON(ICT, I I, 1 ) + IP* SCOM?S( LL, IUP, I I ) 

00272 

686 

CONTINUE 

00274 

1F<3U9.LT. 0.0001)  CO  TO  635 

00275 

667 

CONTINUE 

0 0 2 7 o 

t>99 

CGNTINUF 

00277 

N = 3 

00279 

.»ND  = N'.;:s')r(LL,N) 
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0027s) 

002flrt 

00281 

0028? 

00283 

00284 

00285 

00286 

00287 

00288 

00289 

00290 

00291 

00292 

00293 

00294 

00295 

00296 

00297 

00298 

00299 

00300 

00301 
C0302 

00303 

00304 

00305 

00306 

00307 
00309 

00309 

00310 

00311 

00312 

00313 

00314 

00315 

00316 

00317 

00318 

00319 

00320 

00321 
0032? 

00323 

00324 

00325 

00326 

00327 


IF(NM7.EC.0)  GO  TO  695 
DU  694  K-l/NMC 
MD=PISl'P(LL,K,N) 

IUD=IU(LL,9D) 

NUNr=NUHDF(LL,K,N> 

IF(UF.IGIN(U,,Mn).NE.IT)  GO  TO  694 
IF(JC3KPS(LL,IUC,l).LT. 0.001)  GO  TJ  694 
I3U9=Sl»P/SC0MPS(U.,IUr,l)+.999 
IB=MIN0(  Nl'ND,  ISUB  ) 

A=AEIN1  (SU3,I3*SCOF,PS(LL,IUn,I)  ) 

NUNUP(LL,N,N)=NUNUP(LL,K,N)-IB 

AlRrN(ICT,I,l)=Al9nN(ICT,I,l)M9*SC0MPS(LL,lU",J )-A 
SU3=SUB- A 
DO  692  11=1,4 
IF(II.FQ.I)  GO  TO  69? 

A190JU  ICT,  II,n  = AIRON(ICT,II,l)  + IB*SCOMPS(LL,IUD,II) 

692  CONTINUE 

IFCSU3.LT. 0.0001)  GO  TO  595 

694  CONTINUE 

695  CONTINUE 
700  CONTINUE 
8C0  CONTINUE 

C 

C SCHEDULF  LANDING  OF  GNUS  FT  ST'CAP  AND  CAP  AND  PELFASE  SLI  AND  READY 

C 

DO  98C  L=1 ,2 
DO  950  N = l,2 
NM  = N.MISUP(L,N  ) 

IF(N.M.EQ.C)  GO  TO  950 
DO  940  K=1 , NM 
M = M TSUP ( L,K, N ) 

10=021 G1 N(E, M) 

IP  = IO 

IFU.EQ.2)  IP=NPLEX(l)+IO 
IUN=IU(L,N) 

NUN=NNNUP(L,K,N) 

NNU  = 0 
NND  = 0 

IF(  N.  EQ.  3)  NND=N'JN 
IF(N.NE.2)  NNU=NUN 
00  930  1 = 1,4 

A I 92  N ( IP, 1,1 )=AIRnN(IP,I,l ) + ( NNn+ ISEAUY ( E, M)  ) * SCOF'PS  (L, IUN,  I ) 

AI2I1P ( IP, 1,1 )=AIpup( IP,I,1)+NN»*SC0VPS(L,IUN,I) 

930  C3NTINUF 
940  CONTINUE 
950  CONTINUF 
939  CONTINUE 
RETURN 
END 
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00001 
00002 

00003 

00004 

00005 
00005 
00007 
0000R 

00009 

00010 
00011 
0001? 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 
00021 
00022 

00023 

00024 

00025 
00025 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 
00039 
00039 
0004) 

00041 

00042 

00043 

00044 

00045 

00046 

00047 
00049 

00049 

00050 

00051 
0005-> 

00053 

00054 

00055 

00056 


SUPROUTT  Nf  DEFENP<L,LL,  IT,  I UN,  NUN,UPMA  X,U  IN,  VF,  VF*  ILL,  IOA  Y ) 

C 

C THIS  SOUTINE  CONDUCTS  TPF  MR  PFFFNSE  ENG AGEMFNT  OF  INCOMING  ATTAC 

C 

DOUBLE  PKFCISIQN  DCO“PS,DPLEX,ORTG,TARC,TTS 
REAL  LRPEF 

INTFCER  OUG  IN,  TARGET,  ST  ART,  STOP,  "MAX,  UMIN,UREAUy 
INTFGFR  "ASK,UCOT 
REAL  LIVPLX,NOPS 
DIMENSION  VF (2 ), VF* I LL(? ) 

COMMON/FLOCKB/DSUNIT(?,20,?),SCOMPS(2, 20,5 ), COMPS ( 2, 20,5) , 
+STRAT(2,?0,4),APEFAT(2,20,2),AG*ILL{2,20, 10),SKATF(2, 2,5), 
♦DCOMP3{2,10),MAXR(2,?0),LRDFF(2,20),NST«X(2,20),PWDEF(2,20), 

♦ORHAX ( 2,?C),SPEED(?,?0),1RRTIU(2,5),  SR30MX (2,5 ), IM AXR ( 2, 20), 
+ILRDEF(?,20),IVSThX(2,20),IBV'PFF(2,20),NCOMPS(2),NSUNIT(2) 
COMMQN/PLOCKC/COMPLX(2,10,10), 

♦PPLEX(?,10),nTSLI(?,lP),SnpFAC(?,10),  PEF AC( 2, 10 ), ICYCLE(2, 1 0 ), 
♦IREFL(2,10),RFFOP3(?,10,2),OPS(2, 11),REPAIR(2,11), 
♦NPLEX(2),VTIHF(2),  NO  A YS, JHXDEF, JLRDFF, NXSURV,DEL AY, 

♦QPSLCH,OPSLND 

COKE )N/PLOCKD/ IONOFFI 2, 20, ?), J3N0FF( 2, 20, 2), SI ( 2, 20, 2),S 2( 2, 20, 2) , 
♦MTS(2,20,6),UNIT(2,20,2),S6(2,20,2),SB(2,20,2),TTS(2,20), 
♦RANCE(!0,10),IPANGE<10, 1 0), PMl SS( 2,20 ) , IPRI( 2, 20  ), OR IC(2,20), 

♦ TARGC  2,?°),UNAX(?,?0),UHN(  2,  20 ),0R IC IN(  2,  20 ),TAPGET(  2, 20 ) , 
♦IUNTT(2,20),START(2,20),STOP(2,20),UKFADY(2,20), 

♦ DAY( 30),  WX(30),IHX(30),NMISS(?) 

COMMON/PLOCFE/LIVPLX( 2, 10, 1 0 ) ,11  ASX ( 2, 20, 3),PCOT( 2, 20, 3) , 

♦$R30(2,10,5),AIRUP(20,5,P),ATRDN(20,5,3),ADBASE(2,10) 
COMMON/BL0CKH/ISCHeD(?,?0,P),IU(?,20),J'J(2,20),NOPS(2,10) 
COMMON/PLOC*I/NMISUP(2,4),MISUP( 2, 20, 4 ) ,NUNLP( 2, 20, 4 ) , IREATY( 2, 20 ) 
COMMON  /AIRFXP/  EXPS(19,10) 

C 

C UiNrl,'90ATFP  COUNT  OF  SUPVIVIKG  ATTACKING  UNITS 

C AA=NO.  OF  ATTACKING  "NITS  THAT  CAN  3E  KILLED  PER  DEFEHSf  UNIT(AIR 

C IUSFD=N0.  OF  DEFENS  r VF  UNITS  ENGAGED 

r 

VF( 1 )=0.P 
VF ( 2 ) = 0 . 0 
VFK ILL( 1 ) = 3 . 0 
VFKILL(?)=0.0 
[C  = 0 

ICO  TT'1RU  = 0 

DO  600  N-7,3 
NMP=f!MISUr  (LL,N) 

IE(NMD.EC.O)  GO  TO  550 
DO  500  K=1,NM0 
IFCUIN.LT. 0.0001)  GO  TO  700 
MD=MISI1P([  L,K,N) 

IUP  - I"(LL, NO) 

»UN3-NUM*P(LL,k,N) 

JJUD-  )U('.L,MD) 
lUPAX  = N"‘'r 

IF ( IC.FC.C ) C 1 TO  450 

AIRrO.O 

90  400  ltr 1,1 
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0005  7 

AIR  = A IH  ♦SCOMPSILL,  170,1 1> 

0005  9 

400 

CJNTINl'F 

00057 

IUMAX=UPVAX/4TR 

00060 

450 

IF( ORIGINAL, 90)  . NE.  IT  .0»  . N'JND . *0 . 0 . OR  . IUMAX  .LF  .0) 

00061 

AA  = SCOMPS(LL,  Il’P,  3)*STP  AT  (L,  108,1  )+SC0KPS(LL,Il!P,4) 

00062 

IFtAA.LT. 0.000001)  GO  TO  500 

00063 

1NFFD=UI N/ AA  + 0 . 99 

000b4 

IF(  INSEP.LE.O)  GO  TO  500 

00065 

IlSFP=PINO(INEEO,NVNt,IVFAX) 

00066 

IF(IC.EC.l ) UPFAX=UPMAX-T'J5ED*ATK 

00067 

ITHPU=1 

00069 

NUVUP(LL,K,N)  = NUNUPaL,K,N)-I'JSFP 

00069 

IR=PINO(U'SFD,ISEAPY(LL,PO)  ) 

00070 

NUNUP(LL,K,N)  = NUNUP(LL,X,N)  + Tr! 

00071 

IR£ADY(LL,MD)=IPEACY(LL,VP)-19 

00072 

AALUSS=U IN 

00073 

U IN=U  IN-  AF  IN1(AA*IVSEC,VIN) 

00074 

AAL03S=AAL03S-UIN 

00075 

l EX=- 1 

00076 

00  455  111=1,4 

00077 

IEX=IEX+4 

00079 

TF(L.EQ.2)  IEX=19 

00079 

l F( L . EQ. 2 .AND.  1 1 1 . EQ.  4)  I EX  = 19 

00090 

EXPS(  IF.X,  IDAY)=FXPSdFX,IPAY)+AAL3SS*SCUKPSa, 

00031 

455 

CONTINUE 

00032 

VFd)=VFd  )+SCCMP5(U,,IUP,3)*I'JSEP 

000P7 

vF(7)=vF(?)*seaMPS(LL,iup,4)*n’SFn 

00084 

IF(UIf.LT. 0.0001)  GO  TO  700 

00035 

500 

CONTINUE 

00096 

550 

IC  = ! 

00087 

600 

CONTINUF 

00089 

IF(IT9kU.FQ.l)  CO  TO  IOC 

000  89 

C 

00090 

C 

COMPUTE  SURFACF-TO-AIR  LOSSES 

00091 

C 

00092 

700 

11=5 

00093 

12  = 6 

00094 

IF (’.L . Sc.  2 ) 11=7 

00095 

IF  ( L.L  . EO  . ? ) 17=8 

00096 

2 4L0S3=UI N 

00097 

UIN=UI N- API N1 (UIN,STRAT(L, IPN,3 )*l I VPL X( LL, I T,  1 1 ) ) 

0009° 

TJ  1 N=U  IN- A*-'  INI  (p  IN,  STR  AT(L,  IUN’,4  ) *LIVPL  X(LL,  1 1,  I?)  ) 

00099 

CAL'3S3  = GAL3SS-UI*' 

00103 

IEX  = C 

00101 

70  7C5  111=1,4 

0010  2 

lEV’=IEX  + 4 

00103 

1FCL.E0.2)  I EX= 1 9 

0010  1 

1F(L.£Q.2  . ANn.  IT I . EG. 4 )I FX  = 19 

00105 

^XPSI I EX,  I7AY)  = "XrS< IFX,irAY)  + 

00106 

1 7SL0SS*SC0V9S(L,I'JN/I1I) 

00107 

70 

6 

CONTINUE 

00108 

1K((V?(1)+YF(7)).LT.O.OOI)  RFT"°N 

00109 

C 

00110 

r 

COMPUTE  'lx  TO  AIK  LOSS  Qr  OFF'S^FAS 

com 

1 

001 17 

VF*Tr.L(l  )=  AdNl (VF( 1 ) , V F ( 1 )/(Vc(!)*VFC2))*APEFAT(L, 

89 
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00113 

00114 

00115 


RETURN ( ?>=**INJ ( VF( ?,'7F( VF(1 )*VFC2))*A1'EFAT(L,lVH,?)*hVV) 

ENP 
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00001  SUBROUTINE  SAVF0( ITAPLE) 

00002  C 

00003  C THIS  ROUTINE  SAVES  INPUT  TA8LF.S  ON  PERM  FILE  LOG  IF AL  UNIT  21 

00004  C 

00005  DOUBLE  PRECISION  IN.1UF /NAME 

00006  DOU3LE  PRECISION  ITA5LE 

00007  DOUBLE  PRECISION  I'JTYPF, IETYPF,  IUSUP,  IESUB, ICMPLX,M  ISS 

0000B  COMMON  / IF  ACF/  IUT YP F(  2, 1 5 ) , IFT YPF( 2, 1 5) , I USU8( 2, 1 5,  1 5 ), 

00009  + IFSUS(2,15,15),ICMPLX(:,8),MISS(2,17) 

00010  DIMENSION  IT A8LE( 1 4, 1 6, 17 ) 

00011  C 

00012  C OPEN  OUTPUT  DESTINATION  FILE. 

00011  W?ITE(P/1000) 

00014  R E AP ( 5/ 1 00 1 ) NAMF 

00015  OPEN(UNIT  = 21,FTLF-N».MF/ACCESS  = 'SEQOUT'/MODE=  'BINARY') 

00016  100  WRITE (21  ) IUTYFE, I ETYPF, IUSIJB,I E5UB, I CMPLX, « ISS, ITABLE 

00017  CALL  RFLFAS ( 21  ) 

00018  WH ITE( 5/ 1054 ) 

00019  1054  FOPS'ATdHO/.'FILF  HAS  BEEN  SAVED.') 

00020  CALL  DLAV ( 2) 

00021  RETURN 

00022  C 

00021  0 FORMATS 

00024  1000  FORMAT ($x ' ENTER  OUTPUT  FILE  NAME. (6  CHAR  MAX)  ') 

00025  1001  FORMHT(IIO) 

00026  END 
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00001 

SUPR0UT1NF  ?ETUP( ITABLE ) 

00002 

r 

00003 

C 

TH I > 10  V' INK  LOAFS  INPUT  TABLES  FLOP  PERM  t ILF  LOC I CAL  ' 

00004 

r 

00005 

00091.?  PPF  C 1 S I ON  IN3"F,NAME 

0000b 

DOUBLE  POfCISIUN  ITACLE,1TEMP,NULL 

00007 

GQU8LF  PRFCI3ICN  I''''YPF.,IFTYPE,  IUSU8,  IESUB,  ICMPL X,M  ISS 

00009 

COMMON  / 1 F AC  E/  TUTYPc(2,15),TFTYPF(2,15),IUSUB(2, 15,15), 

00009 

+ I£S0D(2/15,n),lCKPLX(2/9),MISS(7,n) 

00010 

CUV  MON  /VAX/  VAXCVP,  FAXCNT,F'AXF'IS/NIT/F!AXFLr /VAXROW/NULL 

ooon 

COMMON  /CU.3TAD/  FOR3NO,FOPM ( 24,  90 ) 

00012 

INTEGER  F09VN0,p09M/UFr.r 

ooon 

DIMENSION  ITA9LE(14,16,17),  !TEMP(l9,n) 

00014 

OATA  OFL IV "725004020100/ 

00015 

r 

00016 

C 

0°EN  INPUT  SOOPC c ULF. 

00017 

NR  I TE ( 5 , 1 000 ) 

ooon 

RE  AD( 5, 1 00  1 ) NAVE 

00019 

OPEN! UNI T-20/FILF  = NApF,ACCFSS  = 'S£QIN',MODE= 'BINARY  ') 

00020 

c 

00021 

c 

00022 

100 

IbA^  (20)  I UTYPE, IETYPE, 1USU8,I£S0S, ICHPLX,M1SS, ITABLE 

00023 

CALL  PELP#S(20) 

00024 

c 

00025 

c 

OFCOOF.  V API  A5LFS  FOR  PATLE  VARIABLES 

00026 

c 

00027 

DO  200  1-3, NiT 

00023 

DO  198  J = 1 , MAXF’LD 

00029 

DO  193  r = l,  3 A X K 0 R 

00030 

199 

ITF.MP(J,K)  = ITA3LS( I , J,K) 

00031 

FQTMNO  = I 

00032 

do  199  rsaw=i,24 

00033 

INX  = TROW*24*( 1-1 ) 

00034 

7EAD(?3“1F!X,1002)(FOPM(  I ROW,  1 COL  ) , ICOL  = 1,  p0 ) 

00035 

19° 

COKTIMJF 

00035 

C ALL  FORES  ( UFLD 

00037 

CALL  DCOOF (1, JTTEUD  ) 

3FTHPn 

LIKE: 

00037  POSSIBLE  PO  INDFX  MODIFICATION  INSIDt  LOOP 

00039 

700 

CONTINUE 

00039 

VR ITE(5, 1 004 ) 

00040 

100  1 

FURMAT( no, 'FILE  HAS  BEEN  LOADE". ') 

00041 

CALL  9 L A Y ( 2 ) 

00042 

SETl'PN 

00043 

c 

00044 

z 

FORMATS 

00045 

lOOU 

FOl^ATtS,'  ENTER  IN°UT  FILt  N4NE.(6  CHAR  VAX)  ') 

0004b 

1001 

e‘  ) RM  at ( A 1 0 ) 

00047 

1002 

F IS  AT  ( 0 0 A 1 ) 

00049 

END 
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00001  SUBROUTINE  GETINT ( IV  AL) 

00002  C 

00003  C THIS  ROUTINE  CHECKS  AND  CONVERTS  RESPONSE  TO  PIGHT  ADJ.  INTEGER 

00004  C 

00005  DOUBLE  PRECISION  IV/V/IVT 

00006  RE A0( 5/4000 ) IV 

0000/  4000  F0RMAT(A1D 

00003  CALL.  NFIELD(  IV/1/10/IVT/IERR) 

00009  IF ( IERfc.FQ. 0 ) GO  TO  100 

00010  I VAI.--1 

00011  RETURN 

00012  100  DECODE(10/4001/IVT)  V 

00013  4001  FORMAT(FIO.O) 

00014  1VAL=V 

00015  RETURN 

00016  ENT 
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00001  SUBROUTINE  PUMRD 

0000?  C 

00003  C THTS  ROUTINE  DOES  A DUMMY  READ  TO  REGAIN  PROGRAM  CONTROL 

00004  C 

00005  DOUBLE  PRFCISION  ITEMP 

00006  CALL  SCRNKO,  ITEMP) 

00007  RETURN 

00003  END 
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00001 

00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 
00011 
00012 

00013 

00014 

00015 

00016 
00017 
00019 

00019 

00020 
00021 
00022 

00023 

00024 

00025 
00025 

00027 

00028 

00029 

00030 


SUBROUTINE  SUBPRO( IT, ITEMP, ITABLE ) 

r 

C THIS  ROUTINE  POES  SUBSEQUENT  PROCESSING  FOR  TABLES 

C 

DOUBLE  PRECISION  ITABLE, ITFMP 

DOUBLE  PPECISION  IUTYPE, IETYPE, IUSUB, IESUB, ICMPLX,M ISS 
COMMON  /IFACE/  IUTYPEI 2, 15 ) , IETYPEI 2, 15) , IUSUBI 2,15,15), 
♦ IESU9(2,15,15),1CMPLX(2,3),MTSS(2,17) 

DIMENSION  IT ABLE ( 14, 16, 17),ITEMP(19, 17) 

IF( IT.EQ.l .OR. IT. EQ.6.0R. IT.EQ.7.0R. IT.GE. 10)G0  TO  390 

IF ( IT.GT. 2)  GO  TO  310 

CALL  UL1ST( 0, IUTYPE, I USUB, ITEMP) 

CO  TO  390 

310  IFIIT.GT.3)  GO  TO  320 

CALL  0LIST(1,1UTYPE,IUSUB, ITEMP) 

GO  TO  390 

320  IF( IT.GT. 4)  GO  TO  330 

CALL  ULTST(0,TETYPF,IESUB, ITEMP) 

GO  TO  390 

330  IF(IT.GT.5)  GO  TO  340 

CALL  ULISTO , IETYPE, IESUB, ITEMP) 

GO  TO  390 

340  IF(IT.GT.P)  CO  TO  350 

CALL  CLIST(0,ICMPLX, ITEMP, IT ABLE) 

GO  TO  390 

350  IF( IT.GT. 9)  GO  TO  390 

CALL  CLIST( 1 , I CMPLX, ITEMP, ITABLE) 

390  CONTINUE 
RETURN 
END 
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00001  SUBROUTINE  OL IST( IRED, NYPE, NOR, ITEMP ) 

00002  C 

00003  C THIS  ROUTINE  BUILDS  LISTS  OF  RF.D/BLUE  UNITS  FOR  UNIT  AND  FNG  T3LES 

00004  C 

00005  DOUBLE  PRECISION  NULL, NYPE, NUB/ITEMP 

00005  COMMON  /MAX/  M»XCNP,NAXlfNT,MAXMIS,NIT,MAXFLr,MAXROW,NMLL 

00007  DIMENSION  N¥PE(2,15 ),NUB(2,15,15), ITEMPC 19, 17) ,NNUB( 15) 

00008  IND=  1 + IPED 

00009  DO  100  J=1,MAXUNT 

00010  N YPE( IND, J )=NULL 

00011  DO  100  K=1,MAXUNT 

00012  100  NUB( IND, J, K ) =NULL 

00013  NNYPE=0 

00014  DO  102  I=1,MAXUNT 

00015  102  NNUB( I)=0 

00016  DO  400  J=l,MAXrtJT 

00017  IF(ITEMP(1,J).FQ.NULL)  C3  TO  400 

00013  IF ( NN YPE.EQ. 0 ) GO  TO  200 

00019  DO  150  JJ=1,NNYPE 

00020  IF( ITEHP( ),J).EQ.NYPE(IfT,JJ))  GO  TO  250 

00021  150  CONTINUE 

00022  200  NNYPE=NNYFS+1 

00023  NYPE(IND,NNYPE)=ITEMP(1,J) 

00024  JJ=NNYPE 

00025  250  CONTINUF 

00026  NNUP(JJ)=KNUB(JJ)+1 

00027  NUB(IND,JJ,NNUB(JJ))=ITEMP(7,J) 

00028  400  CONTINUE 

00029  RETURN 

00030  END 


T F 


00001 

00002 

00003 

00004 

00005 

00006 
00007 

00009 
00007 

00010 
00011 
00012 

00013 

00014 

00015 

00016 
00017 

00019 
00017 

00020 
00021 
00022 

00023 

00024 

00025 

00026 

00027 

00028 
00027 

00030 

00031 
0003? 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 
0004? 

00043 

00044 

00045 

00046 

00047 
00043 

00049 

00050 

00051 
0005? 

00053 

00054 

00055 
00C55 


SUBROUTINE  CLIST ( IRED,TCMPLX,TTEMP, IT ABLE) 

C 

C THIS  ROUTINE  BUILDS  PFD/BLUE  COMPLEX  LISTS 

C AND  RESETS  RELATIVE  POSITION  TABLE  IF  COMPLEX  LIST  CHANGES 

C 

INTEGER  ORIGIN, TARGET, START/STOP, DMAX,OMIN,PREADY 
DOUBLE  PRECISION  NULL, ICMPLX, ITEMP, ITABLE 
DOUBLE  PRECISION  TTS,OR IG,T ARG 

COMMON/BLOCKD/TONGFF (2,20,2),JONOFF(2,20,2),S1(2, 20,2),S2(2, 20, 2), 
♦MTS( 2, 20,8 ),UN1T( 2,20,?),SA(2,20, 2),SB(2, 20, 2),TTS( 2,20), 

♦RANGE(10,10),IR4NGE(10,10),DHISS(2,20),IPRI(2,20),ORIG(?,20), 

+TAKG<  2,20 ), UMAX(2, 20),UMIN(2, 20) ,0k I GIN ( 2, 20), TARGET (2, 20 ), 
♦IONIT(2,2C ),START(2, 20) ,STOP( 2, 20),UREADY (2,20), 

♦DAY ( 30 ),  WX{30),IWX(30),NMISS(2) 

COMMON  /SPECS/  ITABFR,  ITABLR,  ITABNfc,  ITABNF,  IFLDS( 14, 15), 

1 I3LNK(15,17) , IFORMTI 2, 19) 

COMMON  /MAX/  MAXCMP,M AXUNT,MAXMIS,NIT, MAXFLP,MAXRON, NULL 
DIMENSION  ICMPLX(2,9),TTFMP(19, 17),ITABLE(14,16, 17) 

INDT=9+IRF0 
IND=  1 +IPED 
C 

C CHECK  FOR  CHANGE  TO  LIST 

C 

DO  100  J=1 ,MAXCMP 

IF(ITABLE(INDT,1,J).NF.ITEMP(1,J))  GO  TO  200 
100  CONTINUE 
GO  TO  300 
C 

C LIST  HAS  CHANGED 

C 

200  DO  250  J=1,MAXCMP 

250  ICMPLX(IND,J)-NULL 
NC=0 

DO  260  J=1,MAXCMP 
IF(ITEMP(1,J).FO.NULL)  GO  TO  760 
NC=NC*1 

ICMPLX(IND,NC)=ITEvp(l,J) 

260  CONTINUE 
C 

C BLANK  RELATIVE  POSITION  TABLE 

C 

DO  270  J=1,KAXCKF 
DO  270  K=1,MAXCMP 
270  ITAGL£(13,J,K)=NULL 
C 

C RESET  INOFXING  IN  TABLE  13(RFL  POS  NJK  LONG) 

C 

NP5  = 8 
NPR  = 8 

DO  275  J = 1 ,NPR 
DO  275  K = 1,NPT> 

I7ANGF(K,J)  = 1 
?75  RANGE(K,.J)  = NULL 

300  CONTINUE 
RETURN 
CMTk 
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00001  SUBROUTINF  TRSFH( IT* IT ABLE# ITEMP) 

00002  C 

00003  C THIS  ROUTINE  REPLACES  CURRENT  INPUT  TABLE  NITH  ERROR  FREE  NEW  TABL 

00004  C 

00005  DOUBLE  PRFCISION  NULL# IT ABLE# ITEMP 

00006  DIMENSION  ITABLE( 14# 16# 17)# ITEKP< 19# 17) 

00007  COMMON  / MAX/  MAXCHP,MAXUNT#HAXNIS#NIT,NAXFLD,MAXROW#NULL 

OOOOB  DO  100  J=1#MAXFLD 

00009  DO  100  K=l#MAXROV 

00010  100  ITABLE(IT,J,K)=ITEMP(J#r) 

00011  RETURN 

00012  END 


! 
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00001 

00002 

00003 

00004 

00005 

00006 
00007 
00003 
00000 
00010 
00011 
00012 

00013 

00014 

00015 
OQOlo 
00017 
00019 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 
00049 

00049 

00050 

00051 

00052 

00053 

00054 

00055 

00056 


SUBROUTINE  DCODE!ITABL,JEMP) 

C 

C THIS  ROUTINE  DECODES  AND  PROCESSES  A TABLE  OF  OATA  INTO  VARIABLES 
C NEEDED  FOP  COMPUTING  OUTCOMES 

DOUBLE  PRECISION  DCOMPS,DPLEX,ORIC,TARG,TTS 
DOUBLE  PRECISION  JEM? ( 19, 17 ) , NULL10 
REAL  LRDEF 

INTEGER  OR  IC  IN, TARGET, START, STOP, UMAX, UM  IN, I'REAPY 
DIMENSION  ESUNIT(2,20,2),ETRAT(2, 20,4),EDEFAT(2,20,2), 
+EGKILLI2,20,10),NESUNT!7) 

DIMENSION  INI  14) 

CQNMON/ENUC/JENOC 

COMMON  /SrECS/  ITABFR,  ITABLR,  ITA3NR,  1TABHF,  IFLPS! 1 4, 15), 

1 I BLNKI 15,17),  TFORMTI 2,19) 

COMMON/PLOCKB/CSUN1TI 2, 20,2 ) ,SCOvPS( 2,20,5),COMPS(2,20,5), 
♦STRAT(2,20,4),ADEFAT(2,20,2),AGKILL( 2, 20, 10 ), SR ATE( 2, 2,5) , 
♦DCOMPS!2,10),MAXR! 2,20),LRDEF! 2,20),NSTNX! 2,20),BWDEF! 2,2C), 
♦DRMAX(2,20),SPFED(2,20),IRRT1M(2,5),  SR30MXI 2,5 ), IM AXRI 2, 20) , 
♦ILRDEPI2, rO),IWSTKX(2, 20),XBKDEE(2, 20),NCOPPS(7),NSUNIT(2) 
CQMMON/FLOCKC/COMPLX(2,10,lO), 

♦DPLEX!2,1C),DTSLI!2,10),SUPFAC!2,10),  DEF AC! 2, 10 ), ICYCLr ! 2, 1C) , 

♦ IREPL! 2, 1C), REPOPS! 2, 1C, 2), OPS! 2, 11), REP  AIK! 2, 11), 

♦NPLEX(2),PTIME(2),  NDAYS, JWXDEF, JLRDFF,KXSORV, DELAY, 

♦QPSLCH,OPSLND 

COMMON/PLOCKD/IONOFF(2,?0,2),jnNOFF(2,20, 2), SI (2, 70, 2),S2( 2,20,2), 
♦MTS! 2, 20,8 ),UNIT(2,20,2),SA(2,20,2),SB(2,20,2),TTS(2,20), 
+KANGE(10,10),Ic»NGE(10,lC),9MISS(2,20),iPRl(2,20),ORIC(2,20), 

♦ TAPG! 2, 20), UMAX! 2, 20), DM  IN! 2, 20), ORIGIN! 2, 20), TARGET! 2, 20), 
+IUNIT!2,?0),START! 2, 20), STOP! 2, 20), ('READY! 2, 20), 

♦DAY! 30),  HXI30),THX!30),KMTSSI2) 

DATA  IN/14*0/ 

DATA  NC0MF3/6,P/ 

OATA  NULL/ 1H  / 

DATA  VULLlO/IOff  / 

NLINES  = ITA9NP 
NFLC3  = ITABNF 
NCHARS=NFLDS*10 
INdTAEI.  )rIN(ITA3L)  + l 

GO  TO  1100,200,200, 400,400, 600, 700,800, 800, 1000,1100, 1100, 1300, 
♦1400)  ITAPL 
C 

C PROCESS  TABLE  1 

C 

100  DO  150  J=l, NLINES 

OECOD£!NCHARS,9010,JEMP!1,J))  ^COMPS! 1, J), DCOMPS! 2, J) 

9010  FORM AT! 2A1 0 ) 

150  CONTINUF 
RETURN 
C 

C PROCESS  TABLE  2 

C PROCESS  TABLE  3 

C 

200  L=ITABL-1 
1 = 0 

DO  205  J=l, NLINES 
1*1*1 
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00057 

0005B 

00059 

00060 
00061 
00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 
00079 
00079 
00030 
00081 
00082 
00083 
00094 

00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 
00099 

00099 

00100 
00101 
00102 

00103 

00104 

00105 

00106 
00107 
00109 

00109 

00110 
00111 
00112 


DECODF(NCHARS,9070/JFMP(1/J))  C3UN  1T(L,  1,1  ),DSUNIT(L,  1/  2)  , 
+CQMPS(L,T/1)/ 

♦COMPS( L, 1/2)/ 

+COWPS(L,I/3), 

♦COMPS(L/I/4), 

♦C0MPS(L,I,5), 

♦ MAXR(L,I),LRDFF(L/ I)/ NST*X(L, I ) # BWDEFIL/ I )/ 

♦DRPAXI L/ T ) / SPEED(L,1) 

9020  FQP«AT(A5/5X,A3/7X/5(F3.0/7n,4(A4/6X)/E5.0/5X,Fb.0,4X) 
IF(DSUNIT(L,I/1 >.EQ.5H  ) 1=1-1 

205  CONTINUE 

NSUNITIL )= I 
C 

C REPLACE  ALPHANUMERIC  WITH  NUMERIC  DESCRIPTORS 

C 

NS=NSUNIT( L) 

DO  265  J=1/NS 

IF(MAXR<L,J).NF.5HL0NG  . A NO. KAXR( L, J) . NS . 5H  ) CO  TO  210 

1MAXR(L,J)=1 
CO  TO  230 
210  IKAXR(L/ J)=2 
00  220  K=1,NS 

IF(DSUNIT(L/J,1 ).NE.DSUNIT(L,f/l).OR.nsUNIT(L, K, 2) . NF . LRCFFCL, J ) ) 
♦GO  TO  220 
ILROEF(L,J)=X 
GO  TO  240 
220  CONTINUE 
230  ILRDEF(L,J)=0 

240  IF(WSTWX(L/J).NE.5H9AD  . ANT . WSTWXIL/ J) . NE . 58  ) GO  TO  250 

IWSTWXIL/ J) =1 
GO  TO  260 
250  IWSTWX(L,J)=2 
DO  255  K=1,NS 

IF(D3UNIT(L,J,l).NE.QSUNIT(L,K,l).OK.DSUNIT(L,K,,2).NS.2WDFF(L,J)) 
♦GO  TO  ?c5 
IBNTEFIL/ J)=K 
GO  TO  265 
255  CONTINUE 
260  IBWCE~(L,J)=0 
265  CONTINUE 
C 

C ALL-WEATHER  ATTACK  AIRCRAFT  APE  USED  FOR  SUPPRFSSION 
C 

DO  280  J=1/NS 
00  270  1=1/5 

SCOMPS(L/J/I)=COMPS(L/J/I) 

IF ( I.EQ.2. AND.L.EO.l)  SCOMPSIL/ J, 2)=COKP3(L/ J, 2) +COMPS (L/J/5) 
IF(T.EQ.5.AND.L.EQ.l)  SCOMPSIL, J/ 5)=0. 0 
270  CONTINUE 
280  CQNTINUF 

IFCIN(ITA8L*2).GT.O)  GO  TO  415 
RETURN 
C 

C PROCESS  TABLE  4 

C PROCESS  TABLE  5 

C 


00113 

00114 

00115 

00116 

00117 

00118 

00119 

00120 
0012’ 
00122 

00123 

00124 

00125 

00126 

00127 

00128 

00129 

00130 

00131 

00132 

00133 

00134 

00135 

00136 

00137 

00138 
0013» 

00140 

00141 

00142 

00143 

00144 

00145 

00146 

00147 

00148 

00149 

00150 

00151 
0015? 

00153 

00154 

00155 

00156 

00157 
00151 

00159 

00160 
00161 
00162 

00163 

00164 

00165 

00166 
00167 
COlei 
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400  L=ITAoL-3 
1=0 
LL~2 

IFCL.EQ.2)  LL  = 1 
NT=NCOMPS(LL) 

DO  410  J=1 /NL INFS 

1=1  + 1 

IF(L.KQ.l)  DECODF(MCRARS,9040,J.FKP(1,J))  £SUNIT(L, 1, 1 ), 
♦ESUNIT(L,I/2), 

♦ETRAT(L,T,1), 

+ ET!?AT(L/I/2),fTRATa,I,3),FTRAT(L/l/4), 

+ EDEFAT(L,I,l),EPEFATa,I/?), 

♦ECKILL(L,I,4),FGK ILL(L, I, 5) , EGK ILLCL, 1,6) 
♦,EGKILL(L,I,7),EGKTLL(L,I,8) 

IF ( L . EQ. ? ) nECODF(NCHARS,9050,JEFP(l,J))  ES«NIT(L, l, 1 ), 
+ESUNIT(L#I/?), 

+STRAT(L/T,1),ETRAT(L/I,2),ETRAT(L,I,3),ETKAT(L,T,4)/ 

+EDEFAT(L,I,1),FDEFAT(L/1,2)/ 

♦EGKILL(L/I/4)/EGFILL(L/I,5)/EGKILL(L/Ir6) 

9040  FJRMAT(A5,5X/A3,7X,4(F4.0/6X),F7.0,3X,F8.0,2X,5(F4.0,6X)) 

9050  FORMAT(A5,5X/A3/7X/4(F4.0,6X)/2(F8.0/2X)/3(F7.0,3X)) 
IF(-SPNIT(L,T,1).EG.5H  ) I = 1-1 

410  CONTINUF 

NESUNT(L)=I 

IF ( IM{  ITAEL-2).EO.0)  PETl'RN 
415  N5=NSUNIT(L) 

NES=NESUNT (L  ) 

LL  = 2 

IF  (L  • SQ. 2 ) LL=1 
NT=NCOMP3(LL) 

DO  450  J=1 /NS 
JO  445  K=lr NES 

IF(OSONIT(L/J/l ).EC.ESPKIT(L,^/1).AND.DS0NIT(L,J#2).EQ.ESUNIT(L,F/ 
+2))  G 1 TO  430 
GO  TO  445 
430  PO  435  KK=1,4 

IF(KK.LF.I)  APFFAT(L,J,m  = EPFFAT(L,K,KF) 

STRAT(L,J,KK)  = FTRAT(L,K,m 
435  CONTINUE 

DO  440  KF=4, NT 

AGKILL(L,J,KK)=ECFILL(L,F,KK) 

440  CONTINUE 
GO  TO  450 
445  CONTINUF 
450  CONTINUF 
RETURN 
C 

C PROCESS  TABLE  6 

C 

600  DO  650  J=1 / NL t NFS 

L=  1 

IFCO.GT.4)  L =2 

K-J 

IF(L.ED.2)  K=  J-4 

DtCODr(NCPARS/9060/JFRP(1/J)l  S?  ATfc( L,  1,K ) , SR ATF (L, ?, K), A 

19RTIu(L/K)=A+.5 
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i 


00169 

SR30yX!L,r)=SRATE!L,l,K)*30.0 

oono 

9063 

F0RyAT!3!F6.0,4X)> 

00191 

o50 

CONTINUE 

00172 

00173 

C 

RETURN 

00174 

C 

PROCESS  TABLE  7 

00175 

r 

00176 

700 

00  750  J=1,NLINES 

00177 

DECODE! NCH ARS, 9070, JEyP!l,J)) 

00178 

+QPS!1,J),0PS!2,J),R£PAI9!1,J),SFPA1.R(2,J) 

00179 

9070 

FORMAT(4(F7.0,3X)) 

00180 

750 

CONTINUF 

00181 

00182 

RETURN 

00183 

C 

PROCESS  TA3LE  8 

00184 

c 

PROCESS  TABLE  9 

00185 

c 

00186 

800 

L=ITA9L-7 

00197 

1=0 

00199 

NC=NCOMP5(L) 

00189 

DO  850  J=1 ,NLINES 

00190 

1=1+1 

00191 

DPLEXIL, I)=NULL10 

00192 

If (L.EO.l)  DECODE! NCH ARS,9080, JEMP! 1, J) ) 

00193 

♦DPLEX!L,I),COMPLX!L,l,l  ), COMPLY! L, I, 2) ,COMPLX! L,I,3 ) , 

00194 

♦ CQKPLA!L,I,4),COKPLX!L,I,5),CJMFLXIL,I,6), 

00195 

+DTSLI!L,T),SUfiFAC!L,I),DFFAC!L,I 

00196 

♦)/ A,3,C 

00197 

9080 

F0RyAT!A6,4T,5!F4.P,6X),'-6.0,4X,3!F5.0/5X)/3!F4.0,6X)) 

00198 

IF! L . EQ. 2)  DECODE! VCH ARS, 9090, JFyP!l,J)) 

00199 

+ DPLEX! L, I ) ,COMPLX( L, 1,1 ), COMPLX! L,I,2 ),COMPLX! L,I, 3) 

00200 

♦ , COMPLY ! L, 1,4 ), COM°L  T!L,I,5),COKPLX!L,I,6), 

00201 

♦ CQKPLX!L,I,7),COEPLY!L,I,8), 

00202 

♦DTSLI!L,I),SURFAC!L,I),DFFAC!L,I 

00203 

♦)  , A, 9, C 

00204 

9090 

FORK  AT! Afi,4X,3!F3.0,7X),3!F5.0,5X),3!F4.0,6X)) 

00205 

0ECODE!10,9091,JFyp!16,J))  C 

00206 

9091 

FORMAT! F1C . 0) 

00207 

ICYCLE!L,I)=A+.50 

00209 

!REPL!L,T)=3+.50 

00209 

REPOPS!L,I,2)  = K'JLL 

00210 

IF (C.LT. 0.0000)  PEPOPS!t.,I,2)  = lHr 

00211 

REP'JPS!L,I,1)=A33!C) 

00212 

T F ! 0PLFV!L,I).EQ.10H  ) 1=1-1 

00213 

850 

CONTINUF 

00214 

NPLEXIL ) =1 

00215 

00216 

C 

RETURN 

00217 

r 

PROCESS  TABLE  10 

00218 

r* 

00219 

1000 

DEC ODEtNCHARS, 9100, JE“P 11,1))  A 

00220 

NOAYS=  MINI! A*. 5, 10.) 

00221 

DECODE INCH ARS, °lC0,JEyP!l,?))  A 

00222 

KTIMF! l)=J+.5 

00223 

SEC  ID-CINCH  \RS,<>  100, JEMP!  1,3))  * 

00224 

XTI’!“'!2)=A  +.5 

i 


I 
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00225 

00226 

00227 

00228 

00229 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00238 

00239 

00240 

00241 

00242 

00243 

00244 

00245 

00246 

00247 

00248 

00249 

00250 

00251 

00252 

00253 

00254 

00255 

00256 

00257 

00258 

00259 

00260 
00261 
00262 

00263 

00264 

00265 

00266 

00267 

00268 

00269 

00270 

00271 

00272 

00273 

00274 

00275 

00276 

00277 
00273 

00279 

00280 


DECODE(NCFARS,9100,JEMP(1,4))  o°slnd 
DECODE! NCHARS,9100,JEMP( 1,5))  OPSLCH 
DECODE(NCHARS,°100,JEMP(1,6))  WXSURV 
DECODE! NCFARS, 91 00, JEMP( 1,7))  DFLAY 
DECODE(NCHARS,9100,JEVP!1,8))  A 
JLRDEF=A+.l 

DECODE! NCFARS, 91 00, JEMP( 1,9))  A 
JWXDEF=A+.l 

D EC ODF(NCHARS, 9100, JENP (1,10))  A 
JENDC  = A + .1 
9100  F0RMAT(F4.0,6X) 

RETURN 

C 

C PROCESS  TABLE  11 

C PROCESS  TABLE  12 

C 

1100  L=IT A8L-10 
1 = 0 

DO  1150  J=1,NLINES 
1 = 1 + 1 

ORIG(L,I)=NULL10 
TARG!L,X)=NULL10 
TTS(L,I) =FULL 10 

DEC QDE(NCHARS, 9110, JFMP(1,J))  DKISS(L,I) , IPRI! L, I),ORIG( L, I ), 
♦TARG(L,I),S1(L,I,1),S2(L,I,1),S1(L,I,2),S2(L,I,2), 
+TTS(L,I),l1NIT(L,I,l),Df!IT(L,I,2),A,B,C 
IF(DMISS(L,I).NE.5H  ) GO  TO  1120 

1=1-1 

CO  TO  1150 
1120  UMAX(L,I)=A+.5 
UMIN(L,l)=B+.5 
UREADY(L,I)=C+.5 

9110  FORMAT! A5,5X,  II, 9X, 2 ( A6,4X) , A 3, A5,2X, A3, A5, 2X, A 8,  2X, A5,5X,A3,7X, 
+3( F3. 0,7X) ) 

DEC0DE(30,9111,JFFP(13,J))S1(L,I,1),S1(L,I,2) 

9111  FORMAT ( A3, 17 X, A 3, 7 X) 

DO  1145  N=l,2 

JJ  = N*  2+1 2 

IF(S1 (L,I,N).EQ.3KFND)  CO  TO  1140 
DECODE! 10, 9112, JEMP(JJ,J))  S2(L,I,N) 

GO  TO  11*5 

1140  DECODE(10,9113,JEFP(JJ,J))  S2(L,I,N) 

1145  CONTINUE 

DECODE (10, 9114, TTS(L, I)) 
♦MTS(L,l,l),FTS(L,I,2),FTS(L,l,3),FTS(L,I,4), 
♦MTS(L,I,5),MTS(L,I,6),MTS(L,I,7),yTS(L,I,8) 

9114  FORMAT! 81 1,2X) 

1150  CONTINUE 

NM IS3 (L ) =T 

9112  FORMAT! 5X, A5 ) 

9113  FORMAT! A5,5X ) 

C 

C REPLACE  ALPHANUMERIC  WITH  NUMERIC  DESCRIPTORS 

C 

LL  =9 

IF (L . EQ. 2)  LL=1 
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00281 

00282 

00283 

00284 

00285 

00286 
00281 
00288 

00289 

00290 

00291 

00292 

00293 

00294 

00295 

00296 

00297 

00298 

00299 

00300 

00301 

00302 

00303 

00304 

00305 

00306 

00307 

00308 

00309 

00310 

00311 

00312 

00313 

00314 

00315 

00316 

00317 

00318 

00319 

00320 

00321 

00322 

00323 

00324 

00325 

00326 

00327 

00328 

00329 

00330 

00331 

00332 

00333 

00334 

00335 
00335 


NM=NMISS(L) 

NU=NPLEX(L) 

NT=NPLEX(LL) 

NU=NSUNIT(L) 

DO  1235  ¥=1,NM 
DO  1205  K=1,N0 

IF(ORlG(L,M).NF.DPLEX(L,n)  GO  TO  1205 
ORIGIN(L,P)=K 
GO  TO  1210 
1205  CONTINUE 
1210  DO  1215  K=1,NT 

IF(TA»G(L,H).NF.DPLEX(LL,K>)  CO  TO  1215 
TARGET(L,¥)=K 
GO  TO  1220 
1215  CONTINUE 

TARGET(L,P)=0 
1220  DO  1230  J=1,NU 

IF(UNIT(L,N,1).NE.OSI'N1T(L,J,1).OR.UNIT(L,M,2).NE.PSUNIT(L,J,2)) 
♦GO  TO  1230 
IUNIT(L,M)=J 
GO  TO  1235 
1230  CONTINUE 
1235  CONTINUE 
RETORN 

PROCESS  TABLE  13 

1300  NPB  = 8 
NPR=9 

DO  1350  J=1/NPR 
DEC0DECNCPAR3, 9130, JEEP (1,J)) 
+RANGE(1,J),RANGE(2,J),RANGE(3,J),PANGE(4,J), 
+RANCE(5,J),RANGE(6,J),RANGE(7,J),RANGE(8,J) 

9130  F0RPAT(B(A5,5X)) 

1350  CONTINUE 

DO  1360  J=l, NPF 
DO  1360  K= 1, NPR 
IRANGE(J,F)=1 

IF ( RANCE(J,K).EG.5HSHORT)  IRANGF ( J, K )=2 
1360  CONTINUE 
RETURN 

: PROCFSS  TABLE  14 

C 

1400  DO  1450  J-1,NLINES 

IF ( J. EQ. 1 ) DECODE! NCH ARS, 91 40,JEKP( 1, J )) 
+DAY(1),DAY(2),DAY(?),DAY(4),D»Y(5),DAY(6), 
+DAY(7),rAY(8),rAY(8),DAY(10) 

IF1J.EQ.2)  rEC0DE(NCHARS,9141,JEFPCl  ,J)) 

♦WX(1 ),WX(2),VX(3),WX(4),WX(5),WX<6),WX(7),NX(B),WX(9), 

♦WX( 10) 

9140  F0RVAT(10(F5.0,5X)) 

9141  FORMAT(10(15,SX)> 

1450  CONTIN'JF 

DO  1460  1 , 30 

IV»X(K)  = 2 
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00337 

1460 

CONTINUE 

00338 

DO  1480  K=l/ NFLDS 

00339 

ID -DAY  (K)-». 5 

00340 

IFUD.CT.  30)  CO  TO  1 4* 

00341 

IF(ID.EO.O)  GO  TO  1480 

00342 

IF(WX(K).FQ.4HBAO  ) IW=1 

00343 

IF(NX(K).FQ.4HC00D  IV=2 

00344 

DO  1470  KF=ID,30 

00345 

1WX(KK)=IV 

00346 

1470 

CONTINUE 

00347 

1480 

CONTINUE 

00348 

kETURN 

00349 

END 
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00001 

00002 

00003 

00094 

00005 

00006 

00007 

00008 

00009 

00010 
00011 
00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 
00027 
00023 
00020 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 
00033 

00039 

00040 

00041 

00042 

00043 

00044 

00045 
00045 
00047 


SURROUTINF  E RROR( IT/ ITFMP, IERR, INTER ) 

C 

C THIS  ROUTINE  SCREENS  DATA  ENTRIES  FOR  INCONSISTANCIES 

C 

DOUBLE  PRECISION  NULL* ITEM0, I VAL, TKDS 

DOUBLE  PRECISION  IUTYPE, IFTYPE, IUSU3, IESUB, ICMPLX,M ISS 
COMMON  /(FACE/  IUTYPFI 2* 15),IFTYPF< 2, 15), IOSUB( 2, 15, 15) * 

♦ IESUB (2,15,15),ICMPLX(2,8),MISS(2, 17) 

COMMON  /3FECS/  ITABFR,  ITA8LR,  ITABNR,  ITABF'F,  IFLDS ( 14, 15), 
1 IELNF (15*17)*  IFOPMTC 2*19) 

COMMON  /MAX/  MAXCMP,MAXUNT,WAXMlS,HIT,MAXFLD,KAXROW,NULL 
DIMENSION  I3ADS(9),IwrS(4) 

DIMENSION  ITEMP( 1 9*17) 

DATA  IWDS/6PL0NG  ,6FSPORT  ,6HGOOO  , 6HB AD  / 

DO  100  1=1*9 
100  I RADS ( I ) =0 
NR  = ITAPN8 
NE  = IT  ABNF 

IF  ( I ERK.  F.C.  0 ) CO  TO  200 
C 

C COUNT  NON'  NUMERIC  FNTKY  ERRORS 

C 

00  110  I=1,NF 
00  110  J=1,NR 

IF(IBLNE(I*J).E'J.  1)  I8ADS(9)=IPADS(9)+1 
110  CONTINUE 
IERR=0 

200  CONTINUE 

C CONSTRUCT  MISSION  LISTS  IF  NEFDEC 

C 

IFUT.LE.10.0R.IT.GE.13)  GO  TO  400 
IRED=0 

IFdT.EQ.12)  IRFP  = 1 
IND=IRFD*1 
DO  350  1=1 ,MAXMIS 
350  MISS(IND,I)=ITFMP(1,1) 

400  CONTINI'F 

DO  990  J=1*NR 

IF(1TEMP(1,J). EQ. NULL)  GO  TO  990 

no  Q00  ?.  = 1,NF 

ISFP=IFLrS(IT*I)-l 

IF(  ISEP.LE.O)  GO  TO  900 

IVAL=ITFVF(I,,J) 

CO  TO  (310, 820,830, 340, R50*8f 0*870), ISEP 

C 

r CMt OK  FOorR  UNIT  DEFINITION 


00043 

r 

00049 

RIO  CONTINUE 

00050 

I3ED=0 

00051 

lF(IT.Er .3 . OR. IT. FC. 

l?) 

OOOS2 

IF ( IT.CT.3)  G3  TO  °15 

00053 

CALL  CKTS(TTEMP(1,J) 

* T V 

00054 

IF( lEic.EO.O)  CO  TO 

900 

00055 

I3ArS(l)=I3AC3(1  )+l 

C0C55 

I PLY* ( T , J)  = 1 

IPEP=1 

AL  , IRiO,  lUTYPfc,  IUSVE»,1  SB3,  IT) 
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00057 

GO  TO  900 

00058 

815 

CALL  CKTS(ITEMP(P,J),IVAL  / IRED, IUTVPE, IUSUB, IERP, IT) 

00059 

IF(IERR.EO.O)  CO  TO  816 

00060 

IBADS(1)=IBADS(1)*1 

00061 

GO  TO  818 

00062 

316 

CALL  CKTS(ITEMP(8,J),IVAL  , IRED/IETYPE, IESUB, IERR, IT) 

00063 

IF ( TERR. EC.O ) GO  TO  900 

00064 

I3AOS(2)=1BAOS(7)+1 

00065 

818 

CONTINUE 

00065 

I BLNK ( I, J)=l 

00067 

I8LMK( 1-1/ J)  = 1 

00068 

CO  TO  900 

00069 

C 

00070 

C 

CHECK  FOR  COMPLEX  ON  LIST 

00071 

c 

00072 

8 20 

CONTINUE 

00073 

IRED=0 

00074 

IF(IT.E0.11.AND.I.EC.4)  IRED  = 1 

00075 

IFUT.E0.12.ANC.I.F0.?)  IREP  = 1 

00075 

IB0K=0 

00077 

IFU.EG.4)  I80K=1 

00078 

CALL  CKC(IVAL, IREO, IERR, I80K) 

00079 

IF(IERR.EO.O)  GO  TO  900 

00080 

IBADG(3)=IPADS(3)+l 

00081 

1BLNK( I, J) =1 

00082 

GO  TO  900 

00083 

c 

00034 

c 

CHECK  FOP  MISSION  PRESENCE  ON  APPROPRIATE  LIST 

00085 

c 

DONE  WHEN  ISEP^T 

00036 

c 

00087 

830 

GO  TO  900 

00039 

c 

00089 

c 

CHECK  FOR  LONG  OR  SHORT 

00090 

c 

00091 

840 

CONTINUE 

00092 

IF(IVAL.EP.IWDS(l).OR.IVAL.EQ.IwnS(2).OR.IVAL.EO.KULL)  GO  TO  900 

00093 

IBADS(5)=IBADS(5)+1 

00094 

IBLNK{ I, J)=l 

00095 

GO  TO  900 

00096 

c 

00097 

c 

CHECK  FOR  GOOD  OR  BAD 

00098 

c 

00099 

350 

CONTINUE 

00100 

IF(IT.E0.14.AND.J.EQ.l)  GO  TO  990 

00101 

IF(IVAL.EQ.IWDS(3).OR.IVAL.EQ.IWDS(4).OR.IVAL.EQ. NULL ) GO  TO  900 

00102 

1BADS(6)=IBADS(6)+1 

00103 

IBLNK( I, J)=l 

00104 

GO  TO  900 

00105 

r 

00106 

c 

CODE  REPL  OPS 

00107 

c 

00108 

860 

CONTINUE 

00109 

CALL  ERR1 ( IV AL, I TEMP (16,J),IERP) 

00110 

IF(IERR.EO.O)  GO  TO  900 

00111 

IBADS(7)=IBAOS(7)+l 

00112 

IBLNK(I,J)=1 
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0011? 

CO  TO  900 

00114 

C 

00115 

C CHECK  START/STOP  FIELC 

00116 

C 

00117 

870  CONTINUE 

00118 

IRED=0 

00119 

IF ( IT. EC. 1 2 ) IPSD=1 

00120 

KK  = 13 

00121 

IFU.E0.6)  KK  = 15 

00122 

CALL  SRPTaVAL/ITENPOCK/JlrlTENPIKK  + l/Jl^IERR,  IPED) 

00123 

IE( IERR.EC.0)  CO  TO  900 

00124 

IF(IERR.EQ.l)  IB«OS(8)  = TBADS(9)U 

00125 

IFQERP.EQ.?)  1 8 ADS  ( 4)  = ISADS(4)  ♦ 1 

00126 

IBL.NK(I,J)  = 1 

00127 

°00  CONTINUE 

00123 

990  CONTINUE 

00129 

c 

00130 

C IF  ERRORS  HAVE  BEEN  FOUND  WRITE  MESSAGES 

00131 

C 

00132 

IB  ADT=0 

00137 

DO  995  1=1,9 

00134 

995  IBArT=IBArT+I9ADS(I) 

00135 

IF ( IBADT.EQ.O)  RETURN 

00136 

IERR=1 

00137 

CALL  NWSCFN(O) 

00138 

NR ITE( 5, 4000 ) IT, ( IB ADS (I), 1=1, 9) 

00139 

4000  FQRMAT(33H  INPUT  ERRORS  WERE  POUND  IN  TA3LE,I3, 

14X, 

6HNUVEER/ 

00140 

148H0FQRCF  UNIT  NOT  DEFINED  IN  UNIT  DEFINITION  TABLE 

,17/ 

00141 

248KOFORCE  UNIT  NOT  DEFINED  IN  ENGAGEMFNT  TABLE 

,17/ 

00142 

349H0CQMPLEX  NOT  DEFINED  IN  COMPLEX  TABLE 

,17/ 

00143 

448H0MISSICN  NAME  IN  START  OR  STOP  FIELD  NOT  DEFINED 

,17/ 

00144 

548H0 ILLFCAL  ENTRY  IN  LONG/SHORT  FIELD 

,17/ 

00145 

64BH0ILLEGAL  ENTRY  IN  COOD/RAD  FIELD 

,17/ 

00146 

748H0 ILLEGAL  ENTRY  IN  REFL  OPS  FIELD 

,17/ 

00147 

848H0 ILLEGAL  ENTRY  IN  START  OR  STOP  FIELD 

,17/ 

00143 

948H0N3N  NUMERIC  ENTRY  IN  NUMERIC  FIELC 

,17/) 

0014? 

WRITE(5, 1022) 

00150 

1022  FORMAT! 64H  WHEN  THF  TABLE  OEAPPEAPS  THE  FIELDS 

IN  ERROR  WILL  P> 

00151 

1 DICATED./l H , 

00152 

253HV0U  MAY  CORRECT  THE  FRRORS  OR  RESTORE  ORIGINAL  TAPLE.) 

00153 

WRITE(5,2022) 

00154 

2022  FOR'IAT($,1KO, 

00155 

136KTO  RETURN  TO  TABLE  STRIKE  SPACE  BAR.) 

00156 

CALL  DUMRD 

00157 

RETURN 

00158 

END 
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SUBROUTINE  CKTS( NYPE,NUE, IRED,INYPE, INUB, IERR, IT ) 

C 

C THIS  ROUTINE  VALIDATES  THE  PRESENCE  OF  A UNIT  ON  APPROPRIATE  LIST 

C 

DOUBLE  PRECISION  NYPE, NUB, INYPE,INUB, NULL 
DIMENSION  INYPE(2,15),IN08(2,15,15) 

COMMON  /MAX/  MAXCMP,MAXUNT,MATylS,NIT,MAXFLD,PAXPOW,NULL 
IERR=0 

IF(NYPE.EQ.10HVFCAP  ) RETURN 

IF(NYPE. EQ. 10HDLI  ) RFTURN 

IF(NYPE.EQ.10RSLI  ) RETURN 

IF( IT.LF.3. AND. NUB. EQ. NULL)  RETURN 
IND=IRED«1 
DO  100  J=1 ,MAXUNT 

IF(NYPE.EO.INYPE(INO,J)>  CO  TO  200 
100  CONTINUE 
GO  TO  900 

200  DO  300  K=1,MAXUNT 

IF(NUB.EQ. INOB(IND,J,K))  RETURN 
300  CONTINUE 
900  IERR=1 
RETURN 
END 
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SUBROUTINE  CKC( icomp, iked, iepr, IBOK ) 

c 

C THIS  ROUTINE  CHECKS  FOR  PRESENCE  OF  COMPLEX  ON  APPROPRIATE  LIST 
C 

DOUBLE  PRECISION  Il'TYPE,IETYPE,IUSUB,IESUB,lCMPLX,MISS 
DOUBLE  PRECISION  NULL, ICOMP 

COMMON  /IFACE/  IUTYPE(2, 15) ,IETYPE(2, 15),IUSUB(2,1S,15), 

♦ IESUB(2, 15,15), ICMPLX( 2,8), MISS(2,17) 

COMMON  /MAX/  MAXCMP,MAXUKT,MAXMIS,NIT,MAXFLD,MAXRON,Nl'LL 
IERK=0 

IF( IBOK. EO.l. AND. ICOMP. EQ. NULL)  RETURN 
IND=IRED*1 
DO  100  J=1 ,KAXCMP 
IFCTCQMP.EQ. ICMPLXC IND, J) ) RETURN 
100  CONTINUE 
IERR=1 
RETURN 
END 
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00001 

0000? 

SUBROUTINE 

ER»1( IWORr,JNOPD, IERP) 

00003 

C 

00004 

c 

AUTHOR 

00005 

c 

90(1  PJNGO  j 

00006 

c 

STANFORD  RESEARCH  INSTITUTE/NKRC 

00007 

c 

MENLO 

PARK  CALIFORNIA 

00003 

r 

0000? 

c 

OATE  OF  LAST  REVISION 

00010 

c 

1 DECFMBEP  1976 

00011 

c 

00012 

c 

PURPOSE 

1 

00013 

c 

TO  EICHT  JUSTIFY  A LFFT  JUSTIFIED  NUMERIC  FIELD.  IF  INPUT 

00014 

c 

FIELD 

CONTAINS  A *D*,  A (-)  SIGN  IS  PREF1YFD  TO  OUTPUTVORD. 

00015 

c 

i 

00016 

c 

DESCRIPTION  OF  VARIABLES 

00017 

c 

[BLANK 

-BLANK  FILLED  WORD 

00018 

c 

I3LNK 

-RIGHT  ADJUSTED  BLANK  CHARACTER  IN  7FR0  FILLED  WORD 

00019 

c 

ICHAR 

-RIGHT  ADJHSTFC  CHARACTER  IN  ZERO  FILLED  word 

00020 

c 

I0EE 

-RIGHT  ADJUSTED  CHARACTER  *D*  IN  A ZERO  FILLED  WORD 

00021 

c 

1 ERP 

-ERROR  TAG— (0)  SUBROUTINE  PROCESSED  OK,(l)  ERROR  IN 

00022 

c 

INPUT  NORP  * IVORD* 

00023 

c 

INUH 

-TAG  INDICATING  (0)  NO  NUMERIC  CHARACTER  HAS  BEFN  FOUND 

00024 

c 

IN  *INORO*  OR  (1)  FIRST  NUMERIC  CHARACTER  HAS  PEEK  FOUH 

00025 

c 

IS 

-CHARACTER  POSITION  IN  *IWOR1*  INDICATING  CHARACTER  TO 

00026 

c 

BE  EXAMINED  AND  TRANSFERRED  TO  *JtiORP* 

00027 

c 

IVORD 

-LEFT  ADJUSTED  NUMERIC  CHARACTER  FIELDI4  BYTES)  THAT 

00028 

c 

MAY  CONTAIN  THE  CHARACTER  *D* 

00029 

f 

MINUS 

-RIGHT  APJUSTFP  CHARACTER  (-)  IN  A ZFRO  FILLED  kORD 

00030 

r 

NOS 

-NUMBER  OF  *D*S  ENCOUNTERED  IN  *IWORD* 

00031 

c 

00032 

c 

FUNCTIONS 

OR  SUBROUTINES  REQUIRE’' 

00033 

r 

CETCHA 

00034 

00035 

00036 

C 

r 

c 

PUTCHA 

N7MCHK 

Ul/U  J ( 

0003B 

C 

00039 

DOUBLE  PRECISION  IMOPD, JWORD,IPLANK 

00040 

DATA  IBLNK/1H  / 

00041 

DATA  IBLANK/6H  / 

00042 

DATA  MIN'JS/l!!-/ 

00043 

DATA  IDEF/1HC/ 

00044 

r 

00045 

o 

INITIALIZE  OUTPUT  WORD  TO  ALL  BLANKS 

00045 

c 

00047 

JNORD  = IPLANK 

00048 

r 

00049 

c 

SET  ERROR  TAG,  NO.  OF  *D*S  ENCOUNTERED/  AND  FIFST  DIGIT 

00050 

£ 

00051 

I ERR  = C 

0005  "> 

NUS  = 0 

00053 

INCH  = 0 

00054 

00055 

<• 

INITIALIZE  STARTING  CHARACTERS  IN  *IN0RD*  A NO  *JWORr* 

C0056 

r 

111 
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00057 

IS  = 5 

00058 

JS  = 10 

00059 

C 

00060 

r 

LOOP  OVFP  FIRST  pOUR  CH ARACTFRS  1 

00061 

c 

00062 

DO  100  1 = 1,4 

00063 

IS=IS-1 

00064 

CALL  GETCHA( I CHAR/ I WORD, IS) 

00065 

IF( ICHAR.EQ. I8LNK)  GO  TO  100 

00066 

if( ichar.eq.idee.and.inuh.ro 

00067 

IFCIERR.EQ.l)  PETORN 

00063 

Ip( ICHAR.EQ. IDEE)  GO  TO  50 

00069 

INUM  = 1 

00070 

CALL  NUMCHKI I CHAR, IERR) 

00071 

IFdERR.EO.l  ) RETURN 

00072 

CALL  PUTCHA(ICHAR,JNORD,JS) 

00073 

JS  = JS  - 1 

00074 

G3  TO  100 

00075 

50 

NDS  = NDS  ♦ 1 

00076 

100 

CONTINUE 

00077 

IF ( NDS.GT.l ) 1ERR  = 1 

00078 

IF(NDS.EQ.l)  CALL  Pl'TCHAIMINUS,  J 

00079 

RETURN 

00080 

END 

IERR  = 1 
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SUBRJUTINF  F.RR2(  IKOPD,JVORP,KVORn,IERR,  IRED) 

AUTHOR 

a OB  RINGU 

STANFORD  RESFARCH  INSTITUTF/NWKC 
MFNLO  PARK,  CALIFORNIA 

DATE  OF  LAST  REVISION 
1 DFCEMRLR  1976 

PURPOSE 

TO  riVIDE  INPUT  WORD  MKORD*  INTO  2 WORDS.  THE  FIRST  3 PHAPAC 
JF  * I KURD*  ARE  PLACID  IN  *JWORD*  BLANK  FILLED.  IF  THF  FIRST  3 
CHARACTERS  OF  MWORD*  ARE  »ENC!»,  THE  NEXT  5 CHARACTERS  OF  *IWO 
ARE  LEFT  JUSTIFIED  BLANK  FILLED  INTO  *KWOPD*  . IF  THF  PJRST  3 
CHARACTERS  OF  *IWORD»  ARE  NOT  *END*,  THE  NEXT  5 CHARACTERS  OF 
I WORD  ARE  RIGHT  JUSTIFIED  BLANK  FILLED  INTO  *KNORD*. 

DESCRIPTION  OF  VARIA9LFS 

r PLANK-PLANK  FILLED  WORD 

IDLNK  -BLANK  CHARACTER,  RIGHT  JUSTIFIED  IN  ZE^O  FILLED  WORD 
IERF  -ERROR  *XAG — (0)  ROUTINE  PROCESSED  OK,(1)  PROCESSING  ERR 
H3LVK-TAC  INDICATING  — ( 0)  RIGHT  BLANKS  IN  CHARACTER  STRING  TO 
TRANSFERRED,  (1)  FIRST  NON-SLANK  CHARACTEP  HAS  BEEN 
ENCOUNTFRED 

IWORD  -INPUT  WORD  CONTAINING  2 FIFLDS  OF  3 AND  5 CHARACTERS 
JWOKD  -OUTPUT  WORC  CONTAINING  1ST  3 CHARS  OF  *TWORD*,  LFFT 
JUSTIFIED  BLANK  FILLED 

KODFS  -VECTOR  OF  LECITINATF  VALUES  OF  *JWORD* 

NPSC  -NUMBER  OF  PERIODS  ENCOUNTERED  IN  *TWOkD* 

SUBROUTINES  OR  FUNCTIONS  PECUIPED 
Ap IELT 
GETCHA 
PUTCHA 


DOUBLE  PRfCISION  KODFS, IBLANK, NULL 
DOUBLE  PPFCISION  IKOPD, JWORD,KWORD 

DOUBLE  PRFCISION  It’TYPE, I ETYPE, IUSUB, I ESUB, ICNPL X,F IS S 
COMMON  /WAX/  YAXCMP,Y.AXUNT,“AX,'IS,NI  r , WAXFLD,* AXROW, NULL 
COMMON  / IF  ACE/  rUTVPEC 2, 15 ), CETYPF( 2, 15 ), l USUE (?, 19, 15  ), 
♦ IFSUB(:,lc,15),ICNPLX(?,9),NIS3<?,17) 

DIMENSION  KODES( 7 ) 

DATA  KOD t E/6HC A Y ,6:iDOA  ,6HrDA  ,6HDLS  , 

loIDUS  ,6HDDS  ,cHEND  / 

DATA  I3LNK/IH  / 

DATA  IPRD/1H./ 

j a t a i:lank/6h  / 


IR3LH*  = 0 
NPKO  = 0 
IfcRR  - 0 

IF(  U'PPr.EC.10'' 


) PCT”'>N 
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00057 

00053 

00059 

00060 
00061 
%FTNflIM 
0006? 
%FTNDIN 

00063 

00064 

00065 
00056 

00067 

00068 

00069 

00070 

00071 
0007  2 

00073 

00074 

00075 
00075 

00077 

00078 

00079 
00030 
00081 
0008? 
00093 

00084 

00085 

00096 

00087 

00088 
00099 

00090 

00091 

00092 

00093 

00094 
000°5 

00095 

00097 
00099 


JNOSP  - IBLANK 
KNORD  = IBLANK 
C 

DU  100  1=1,3 

CALL  GfcTCHA(ICHAR,TNQRD,I) 

LI NL: 00061  POSSIBLE  TO  INDEX  MODIFICATION  INSIDE  LOOP 
CALI.  FOTCHA(ICHAR,JNORD,I) 

LINE :00062  POSSIBLE  TO  INDEX  MODIFICATION  INSIDE  LOOP 
100  CONTINUE 
C 

DO  200  1=1,7 

IF(JWORD.EQ.K005S(T))  GO  TO  300 
200  CONTINUE 
IERR  = 1 
GO  TO  600 
300  CONTINUE 

IF(  JWQFiP  . FQ.  6HFNO  ) CO  TO  500 

KS=1 0 

00  400  1=4,8 

IS  = 12  - I 

CALL  CETCHA(ICHAR,IWQSF,TS) 

IF(ICHAR.ER.IPRD)  NPRD  = NPRD  ♦ 1 

IF( ICEAR.EQ.IBLNK. AND. I32LNX.EQ. 0)  GO  TO  400 

CALL  KUMCHF( ICHAR,IERR) 

IF (TEPR.E0.1)  GO  TO  600 
CALL  PUTCHA(ICHAR,KWORD,KS) 

KS=KS-1 
IRBLNF  = 1 
400  CONTI NUF 

GO  TO  bOO 
509  CONTINUE 

CALL  AFIEL0(IW0kD,4,8,KW0«0,TERP) 

IF(IEPR.Ff.l)  GO  TO  600 

£ 

C CHECK  FOR  PRESENCE  ON  wISSION  LIST 

C 

lNn=iPEr*i 
DO  550  J=l,FAXf'IS 
IF(KWLlkO.IO.MTSS(TND,J))  RETURN 
550  CONTINUE 
IERr,=2 

500  CONTIV'IF 
rETUUN 
END 
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00027  C 

00028  C 

00029  C 

00030  C 

00031  C 

00032  C 

00033  C 

00034  C 

00035  C 

00036  C 

00037 
00033 

00039 

00040 

00041  C 
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SUBROUTINE  GETLR! IN8UF,  ITN,  ITEMP,  IERR ) 

AUTHOR 

BOP  RINGO 

STANFORD  RESEARCH  I NSTITUTE/NWRC 
MENLO  PARK,  CALIFORNIA 

DATE  OF  LAST  REVISION 
24  NOVEMBER  1976 

PURPOSE 

TO  DECODE  VECTOR  *INRUF*  BV  LINE  BY  FIELD  AND  PLACE  RESULTS 
IN  * ITEMP*.  LIMITFD  ERROR  CHECKING  IS  PERFORMED. 

DESCRIPTION  OF  VARIABLES 

1 -INDEX  TO  LINE  WITHIN  VECTOR  *INBUF* 

IBLNK  -ARRAY  INDICATING  IF  A FIELD  HAS  AN  ERROR! 1 ) OR 
NAS  DECODFO  OK  (0) 

IE  -ENDING  CHARACTER  TO  BE  DECODED  IN  VECTOR  *INBUF* 
IFLDS  -ARRAY  INDICATING  LENGTH  OF  FIELD  TO  BE  DECODED 
INBUF  -CHARACTER  STRING  VECTOR  OF  TABLE  TO  BE  DECODED 
ITABS  -ARRAY  INDICATING  NUMBER  OF  LINES  AND  FIELDS  PER 
LINE  FOR  A GIVEN  TABLE 

ITEHP  -ARRAY  OF  FIELDS  DECODED  BY  THIS  ROUTINE 
IS  -STARTINC  CHARACTER  TO  BE  DECODED  IN  VECTOR  *INBUF* 

J -INDEX  TO  FIELD  WITHIN  LINE  TO  BE  DECODED 
LNF  -LENGTH  OF  FIELD  TO  EE  DECODED 
NF  -NUMBER  OF  FIELDS  PER  LINF 
NL  -NUMBER  OF  LINES  PER  TAELE 
NORA  -(0)  ALPHA  FIELD,  (1)  NUMERIC  FIELD 

SUBROUTINES  OR  FUNCTIONS  REQUIRFC 
AFIELD 
NFIELD 

DOUBLE  PRECISION  IN3UF, ITENP 
DIMENSION  INBUF(l),lTENP(19,17) 

COMMON  /SPECS/  ITARFR,  ITA8LR,  ITABNR,  ITABNF,  IFLDS! 14,15), 

1 IBLNX !15,I7),  IFOP^T! 2, 19) 

IERR  = 0 
NL  = ITABNR 
IE  - 0 

DO  1000  T=1,NL 
NF  = ITABFF 
DO  1000  J=l, NF 
LNF  = IFORMT ! 2, J) 

IS  = IE  * I 

IE  = IS  ♦ LNF  - 1 

NORA  = IFLDS! ITN, J) 

IFIITN.FQ.14.AND.I.EQ.1)  NORA  - 1 
IF! NORA .NF  .1 ) GO  TO  500 

NUMERIC  FIELD 
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00057 

00058 

00059 

00060 
00061 
00067 

00063 
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00065 

00066 

00067 

00068 


CALL  NFIELD(INBUFsTSsIF.,TTEMP(J, I)/T3LNK(JrI)) 
IF( IBLNK(JsI).EQ.l)  IEPR  = 1 
GO  TO  1000 


c 

C ALPHA  FIELD 

C 

500  CALL  AFIFXD(INBUF,TS,IE,TTEKP<J,T),IBLHK{J,I)) 
IF(£3LNK(J,I).EQ.l)  I ERR  = 1 
1000  CONTINUE 
RETURN 
END 
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SUBR'JUTINF  NUMCHK  (TCHAR,TFRI-  ) 

C 

C AUTHOR 

C BOB  RINGU 

C STANFORD  RESEARCH  INSTITUTE/NHkC 

c menlo  park,  California 

c 

C DATE  3F  LAST  REVISION 

C 24  NOVEMBER  1975 

C 

C PURPOSE 

C TO  CHECK  NUMERIC  CHARACTERS  TO  ENSURE  THEY  ARE  0-9  OR  (.) 

C 

C DESCRIPTION  OF  VARIAPLFS 

C I -INPEX  OF  CHARACTFR  IN  *LEGNU«* 

C ICHAR  -CHAR  TO  9F  CHECK Fr,R IGHT  JUSTIFIED,  ZERO  FILLET 

C I ERR  -ERROR  TAG— (0)  *ICHAR*  OK,  (1)  ILLEGAL  CHAR  TN  *TCHAR* 

C L £ GNU M- VECTOR  OF  LEGITIMATE  NUMERIC  CHARACTERS 

C 

C FUNCTIONS  OR  SUBROUTINES  RFQUIRFD 

C NONE 

C 

c 

r 

DIMENSION  LEGNUMC 13) 

DATA  LEGNUM  /1P-,  1H0,  1H1,  1«2,  1F3,  1H4,  1HS,  1U6, 

♦ 1H7,  1H9,  1E9,  1H.,  1H  / 

IERR=0 

r 

DO  100  1=1,13 

IF (ICHAR. EO.LEGNUM(I))  RETURN 
100  CONTI NUF 
IERR  = 1 
RETURN 
F.NU 
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SUBROUTINE  NFIELDC  INPHF, I S, IE, I TEMP, IERR ) 

C 

C AUTHOR 

C BOB  R1NGO 

C STANFTRD  RESEARCH  INST ITUTE/NWRC 

C VENL3  PARK,  CALIFORNIA 

C 

C DATE  OF  LAST  REVISION 

C 24  NOVEMBER  1 97fc 

C 

C PURPOSE 

C TO  TRANSFER  A NUMFRIC  CHARACTER  STRING  FROM  VECTOR  »lFPnF* 

C STARTING  AT  *IS*  AND  ENDING  AT  *IE*  TO  *ITEMP*.  RIGHT  BLANKS 

C ARE  STRIPPED  OFF.  TTFMP  IS  LEFT  FILLED  WITH  BLANKS,  AND  EACH 

C CHAD  IS  CHECKED  FOP  0-9,(.),(  ).  CHECK  IS  ALSO  MADE  FOR 

C MORF  THAN  ONF  (.). 

C 

C DESCRIPTION  OF  VARIABLFS 

C I3LANK-8LANK  FILLED  WORD 

C ICHAR  -CHAR  OF  *INBUF*  TO  BF  EXAMINED  AND  TRANSFERRED 

C IE  -ENBINC  CHARACTFR  TO  BE  TRANSFERRED  IN  VECTOR  *INBUF* 

C ISRP  -ERROR  TAG— CO)  FIELD  IS  OK,  (1)  RAD  DATA  IN  NUMERIC  FIE 

C INBUF  -INPUT  VFCTOP  CONTAINING  CHARACTER  STFING  TO  BE  TRANSFER 

C AND  EX  AH I MFD  FOR  LEGITIMATE  NUMERALS 

C IRBLNf-TAG  INDICATING— (0)  RIGHT  RLANKS  IN  CHAR  STRING  TO  BF 

C TRANSFERRED,  (1)  FIRST  NON-BLANK  CHAR  HAS  BEEN  ENCOUNTF 

C IS  -STARTING  CHARACTER  TO  BE  TRANSFERRED  IN  VECTOR  *INBUf* 

C TSC  -STARTING  CHAR  OF  *ITEVP*  TO  RF.CEIVE  CHARS  FRDM  *INBUF* 

C I TEH°  -TARGET  WOPD  FOP  NUMERIC  CHARACTER  STPING  TRANSFERRED 

C FR31  »IN3UF»,  LEFT  FILLED  VITH  BLANKS 

n 

DOUBLE  PRECISION  I HBUF, I ?L ANK, ITEMP 
DIMENSION  INBUF(l) 

DATA  IPRD  /IK./ 

DATA  IPLNK/1H  / 

DATA  IBL  ANK/6H  / 

G 

ITENP  = IPLANK 

I EKR  = 0 

NPRR  s 0 

I SPUNK  - 0 

ISC  = IF  - 15  + 1 

J=I->1 

DO  100  I-IS,l£ 

J-J-l 

CALL  GETCFAC  ICHAR,  INRUF(1),J) 

IFCICHAl.EG.IPRD)  NRRD  = NPRD  v 1 

1E(  ICHAP.f  0.  IPLK'K.  AND.  IPPLNK.PO.  0)  GO  TO  100 

CALL  NUHCliKC  ICHAR  ,J ERR  ) 

IF ( IKKK.ER.l ) I ERP  = 1 

CALL  ■’UTGHAC  ICHAR,  ITEMP,  I SC) 

IRfcLNK  = 1 
ISC  - ISC  -) 

100  CONTINUE 

IF(NPRP.GT.l)  I KRS  = 1 

Sr  TURN 

END 
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SUBROUTINE  AF IEL0 < INBUF, IS, IE, I TEMP, IERR) 

C 

C AUTHOR 

C BOB  RTNGQ 

C STANFORD  RESEARCH  INSTITUTE/NWRC 

C MENLO  PARK,  CALIFORNIA 

C 

C DATE  OF  LAST  REVISION 

C 24  NOVEMBER  1976 

C 

C PURPOSE 

C TO  TRANSFER  AND  LEFT  JUSTIFY  A CHARACTER  STRING  FROM  A VECTOR 

C *INB0F*  STARTING  AT  CHARACTER  POSTION  *IS*  AND  ENDING  AT 

r CHARACTER  POSITION  *IE*  INTO  »ITEMP*.  LEADING  BLANKS  ARE 

C STRIPPED  OFF  AND  TRAILING  CHARACTERS  ARE  BLANK  FILLED. 

C 

C DESCRIPTION  OF  VARIABLFS 

C I -CURRENT  CHARACTER  POSITION  OF  *INBUF* 

C IBLANF-BLANK  FILLET  MORD 

C ICHAR  -RIGHT  JUSTIFIED,  ZERO  FILLED  CHARACTER 

C IERR  -ERROR  TAG— (0)  NO  ERROR,  (11  ERROR 

C IFIRST-TAG  INDICATING  FIRST  NON-BLANK  CHARACTER  HAS  BFEN  ENCOD 

C INBUF  -INPUT  CHARACTER  STRING  VECTOR 

C ITEMP  -OUTPUT  CHARACTER  STRING— LEFT  JUSTIFIED,  BLANK  FILLED 

C K -CHARACTER  POSITION  OF  *ITEMP* 

C 

C FUNCTIONS  OR  SUBROUTINES  REQUIRED 

C GETCHA 

r PDTCHA 

C 

c 

c 

DOUBLE  PRFCISION  INBUF, ITEMP, IBLANK 
DIMENSION  INBUF (1  ) 

DATA  IBLANK/6H  / 

DATA  IBLNF/1H  / 

C 

ITEMP  ■=  IPLANK 
IERR  = 0 
IFIRST  = 0 
K = 0 
C 

DO  100  I=IS,IE 

CALL  GETCHA(ICHAR,JNBUF(1),I) 

LINE!00044  POSSIBLE  DO  INTEX  MODIFICATION  INSIDE  LOOP 
IF(1CHAR.FQ.I8LNK. AND. IFIRST. EQ.O)  GO  TO  100 
IFIRST  = 1 
K = K + 1 

CALL  PUTCFAC ICHAR, ITEMP, K) 

100  CONTINUE 
RETURN 
END 
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SUBROUTINE  SC9N0( IT, ITFMP  ) 

C 

C THIS  ROUTINE  OUTPUTS  TO  THF  SCREEN,  FORMAT  AND  DATA  FOR  A TABLE 

C 

INTEGER  FORM,  UFLD,  FORMfiO,  OTSTR,  FCHAR,  CFTCHR,  OUTPTR, 

1 CQLN,  USRPTR,  TRMTYP,  UPC,  DOWNC,  LFFTC,  RXGHTC,  TRANSC, 

2 HOMEC,  TA8C,  CRC,  ERASEC,  PROC,  UNPROC,  BLC,  UNRLC, 

3 CPXPTP,  CFLO,  UPON,  XCHAR,  RFLD,  DFLD,  DDAY,  BLANK, 

4 RUNPTP,  DAYPTR 

DOUBLE  PRECISION  ITEMP,  NULL,  IDTYPE,  IETYPE,  Il'SUB, 

1 ICNPLX,KI3S,IESUB,KTEKP 

DIMENSION  ITEMP(19,17),  KTEMPC20) 

DIMENSION  OTSTR(500 ) 

COMMON/MODS/ IDRUN, irAY 
DOUBLE  PRECISION  IDPUN 
COMMON  /INBUFF/  INPPTR,TNBUF( 200) 

DOUBLE  PRECISION  INRUF 

COMMON/TIO/TRMTYP,UPC,DOWNC,LFFTC,RIGHTC,UDX, TRANSC, 

1 H0MFC,TA8C, ACSBP 

COMMON  /SPECS/  ITAEFR,  ITABLR,  ITABNR,  ITABNF,  IFLDS( 14,15), 

1 IPLNK( 15,17) , IFOPMTI 2,19) 

COMMON  /CURTAB/  FOPMNO,  FORH( 24,80) 

COMMON  /IF ACE/  IUTYPE( 2, 15 ),IETYPE( 2,15) ,TUSUB( 2, 15,15), 

1 IESUB(2,15,15),ICMPLX(2,8),MISS(2,17) 

DATA  U*,LP/"725O040?01  00/ 

DATA  CFLD/" 615004020100/ 

DATA  PFLD/"711004020100/ 

DATA  DpLD/"6210 04020100/ 

C 

C CLEAR  SCREEN 


CALL  NWSCRN(O) 

C 

C READ-IN  TABLF  FROM  FORMS  FILE 

TF( IT.LT. 15  .ANO.  IT. FO.FORMNO ) GO  TO  20 
DO  10  1POW  = 1,24 
INX  = tPOW*?4*( IT-1  ) 

READ(23*rNX,1000)  (FORM( IRON, ICOL), ICOL=l, 80 ) 
10  CONTINUF 

FORMNO=IT 

t"* 

u 

C REPLACE  "u"  WITH  DATA  CHAR  COUNT 

CALL  FORMS ( UFLD ) 

C 

c GFT  COMPLEX  HEADERS  FOR  TABLF  13 

IF( IT  .NE.  13)  CO  TO  17 
DO  16  1=1,8 
KTEMP(I)=ICMPLX(1,I) 

KTEMP(I+8)=ICMPLX(2,I) 

16  CONTINUE 

17  CONTINUE 
C 

C ENCODE  RATTLE  DAYS  FOR  OUTPUT  TABLES 

IF ( IT  .CT.  14)  ENCODE(2, 1001, DDAY)  IDA V 

C 

C INITIALIZE  PniNTFRS 
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00057 

20 

CONTINDF 

00058 

IROW=0 

00059 

NFL!)=0 

00060 

NCFLD=0 

00061 

OUTPTR=0 

00062 

INBPTR=0 

00063 

C 

00064 

c 

BEGIN  NEW  ROW 

00065 

30 

CONTINUE 

00066 

IROW=IROW«-l 

00067 

IF( IRON  .GT.  24)  GO  TO  200 

00068 

ICOL=0 

00069 

USRPTR=0 

00070 

CPXPTP=0 

00071 

RUNPTR=0 

00072 

DAYPTR=0 

00073 

JBLNK=0 

00074 

NFLD=0 

00075 

C 

00076 

c 

NEXT  COLUMN 

00077 

40 

CONTINUE 

00078 

ICOL=ICOL*l 

00079 

IF ( ICOL  .GT.  80)  GO  TO  30 

00080 

OUTPTR=DUTPTR*l 

00081 

FCHAR=FORM(IROW,ICOL) 

00082 

IF(GETCHR(FCPAP,1)  .EO.  0)  GO  TO 

00083 

IFIFCHAP  .EQ.  CFLO)  GO  TO  70 

00084 

IF (FCH  AR  .EQ.  RFLD ) GO  TQ  80 

00085 

IF( FCF AP  .EO.  DFLD)  GO  TO  90 

00086 

C 

00087 

c- — - 

OUTPUT  A FORMS  CHARACTER 

00088 

CPXPTR=0 

00089 

USRPTP-0 

00090 

RUNPTR=0 

00091 

DAYPTR=0 

00092 

IF( JBLNK  .EQ.  0)  GO  TO  45 

00093 

JBLNK=0 

00094 

CALL  PTUBLC(OTSTR,OUTPTR) 

00095 

45 

CONTINUE 

00096 

IF(FCFAR  .EQ.  -1)  GO  TO  100 

00097 

CALL  POTCHAIFCHAR,  OTSTR,  OUTPTR) 

00098 

GO  TO  4C 

00099 

C 

00100 

c 

BEGIN  A USER  DATA  FIELD  "u" 

00101 

50 

CONTINUE 

00102 

RUNPTR=C 

00103 

PAYPTP=C 

00104 

CPXPTR=0 

00105 

IFCJSRPTR  .NE.  0)  GO  TO  60 

00106 

NFLD  = NFLD*1 

00107 

UROW  = IROK-ITABFR 

00109 

IF(TELNK(NFLD,URON)  .EQ.  0)  GO  TO 

00109 

CALL  PnTCHRCLEFTC,0TST'>,0UTPT9) 

00110 

0UTPTR=0UTPTR*1 

00111 

CALL  PUTCHR(62/OTSTR/QUTPTR) 

00112 

OUTPTR=GUTPT?*l 
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CULL  PTELC( OTSTR, OUTPTR ) 

JBLNK=1 

60  CONTINUE 

USRPTR=USRPTR*1 

CALL  GETCHAIUCHAR,  ITEMPI NFLP,UR0W),  USRPTR) 

CALL  PUTCHAIUCHAR,  OTSTR/  OUTPTR) 

INBPTR  = INBPTR+1 

CALL  PUTCHA(UCHAR,INBUF,INBPTR) 

GO  TO  40 
C 

c PROCESS  A COMPLEX  HEADER  FIELD  "c" 

70  CONTINUE 

RUN°TR=0 
DAYPTR=0 
USKPTR=0 

IF( CPXPTR  .EQ.  0)  NCFLO=NCFLD*l 
CPXPTR =CPXPTR+1 

CALL  GETCHAIX.CHAR,  KTEMPI NCFLD),  CPXPTR) 

CALL  POTCHAIXCHAR,  OTSTR,  OUTPTR) 

GO  TO  40 
C 

C PROCESS  A RUNID  FIELD  "r" 

80  CONTINUE 

CPXPTR=C 
USRPTR=0 
DAYPTR=0 
RUNPTR=RUNPTR+1 
XCH AR=RL AUK 

IF( RUNPTR  .LF.  10)  CALL  GETCHAC  XCHAP,IDRUN,RUNP?R) 
CALL  PUTCHAIXCHAR, OTSTR, OUTPTR) 

GO  TO  40 
C 

C PROCESS  A BATTLE  PAYS  FIELD  "d" 

90  CONTINUE 

CPXPTR=0 
USRPTR=0 
RUNPTR  =0 
DAYPTR=DAYPTR+1 
XCHARrOt ANK 

IF ( DAYPTR  .LF.  2)  CALL  GETCR A( XCH AR, urAY,DAYPTR) 
CALL  Pl'TCHAIXCHAR, OTSTR, OUTPTR) 

GO  TO  40 
C 

c end  OF  LINE  ENCOUNTERED 

100  CONTINUE 

CALL  PUTCHKI 13, OTSTR, OUTPTR) 

ICOL  = 80 

IF( IRON  . EG.  24)  GO  TO  40 

OUTPTR  = OUTPTR+1 

CALL  PUTCHR(10, OTSTR, OUTPTR) 

GO  TO  40 

C 

C 

200  CONTINUE 

CALL  PTl'oLC(  OTSTR,  OUTPTR) 

CALL  rUTCHRIC,  OTSTP,  OUTPTR) 
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00169 

CALL  OfJTSTR(rUK,OTSTR) 

00170 

RETURN 

00171 

C 

0017? 

C 

— FORMATS 

00173 

1000 

FORMAT(80A1) 

00174 

1001 

FO«MAT(I2) 

00175 

END 
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00001  SUBROUTINE  SCRNI ( IT, ITFMF ) 

00002  C 

00003  C THIS  ROUTINE  READS  UNPROTECTED  DATA  FROM  THE  SCREEN 

00004  C 

00005  DOUBLE  PRECISION  ITEMP, INBUF 

00006  DIMENSION  ITEMP(19,17) 

00007  COMMON  /1NBDFF/  INBPTR,INBUF{ 200) 

00008  C 

00009  C CHECK  FOR  DUMMY  READ 

00010  IF ( IT  .NE.  0)  GO  TO  20 

00011  CALL  BUFINC IT, I NBUF/MODS) 

00012  GO  TO  200 

00013  C 

00014  C PROCESS  REGULAR  TABLE  INPUT  REQUEST 

00015  20  CONTINUE 

00016  CALL  BUFINdT, INBUF,MODS) 

00017  C 

00018  C CHECK  FOR  ANY  CHANGES  MADE  TO  TABLE 

00019  IF( MOPS  .CT.  0)  GO  TO  100 

00020  IT=0 

00021  GO  TO  200 

00022  C 

00023  C CHANGE  HAS  BEEN  MADE 

00024  100  CONTINUE 

00025  CALL  CETLRI INBUF,IT,ITFMP,IERP) 

00025  IF ( IERR  .EQ.  1)  TT=-TT 

00027  C 

00028  C RETURN  TO  CALLER 

00029  200  CONTINUE 

00030  RETURN 

00031  FND 
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SUBROUTINE  PUFIN( TAPLF,OUTA RA,MODS ) 

C 

C THIS  SUBROUTINE  INPUTS  CPARS  TO  PERFORM  TABLE  MODIFICATION 

C 

IMPLICIT  INTEGER(A-Z) 

COMMON  /SPECS/  ITAPFR,  ITAELR,  ITABNR/  ITABNF,  IFLDS( 14,15), 
1 IPLNK (15,17),  TFOEMT( 2, 19) 

COMMON/T IQ/TRMT YP,UPC, DOWNC,LEFTC, RI GHTC,UDX,TRANSC, 

1 HOMEC,TAi?C,  AUSBP 

COMMON/CUP TAR/FOPM NO, FORM (7 4, 80 ) 

C 

DIMENSION  OUTAKA(l) 

CRC=13 

ROWS=ITABLR*l 

MODS=0 

C 

C 

c 

C SET  TERMINAL  IN  3TNARY  MODE  FOR  CHAR  MAPINC 

CALL  PTERM 
C 

C CHECK  FOR  FOR  DUMMY  REAT  REQUEST 

IF(TAPLE.NE.O)  GO  TO  100 
C 

r GETTING  CHARACTERS  FROM  TERMINAL 

20  CONTINUF 

CALL  GETT( INCH A R) 

C 

C 

IF(TABLF  .EQ.  0)  GO  TO  150 
TF(INCHAR.EQ.CRC)  GO  TO  40 
IF ( INCHAR. EQ.LEETC)  CO  TO  50 
IF( INCHAR. EQ. 3IGHTC)  CO  TO  60 
TF(INCHAR.EQ.UPC)  GO  TO  70 
IF(INCHAR.EQ.OOWNC)  GO  TO  90 
IF(INCt'AR.SQ.TABC)  GO  TO  90 
IF( INCHAR. E9.H0MEC)  CO  TO  100 
IF(  INCHAP..EQ.TR  A NSC)  CO  TO  110 
C 


C NORMAL  CHARACTER  PROCESSING 

30  CONTINUE 


IF( INCHAR. LT. 32  .OR.  I NCHAR. GT . 1 26 ) GO  TO  20 

MOD3=MOCS+l 

CALL  SFND( INCHAR) 

X = FORM( ROW,POS) 

CALL  PUTCHR( INCHAR, OUTARA,T) 

POS  = P03*l 

IF(P0S.LT.30  .AND.  GFTCHR(FO.RM( ROM, POS ),  1) .EQ. 0)  GO  TO  20 
CALL  SEND(LEFTC) 

POS  - "OS-l 
GO  TO  20 

C 


C CARRAGF  PFT'JRN  PROCESSING 

40  CONTINUF 

CALL  SEf'D(CRC) 
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IF(TRVTYP.EQ.2)  CALL  SEND(DOWNC) 

POS  = 1 
R0W=R0W+1 

IF(ROk  .CT.  ROWS ) CO  TO  100 
IF (GFTCHR(FORM ( ROW/POS ), 1 ) .EO.  0)  GO  TO  20 
GO  TO  60 
C 

c left  cursor  processing 

50  CONTINUF 

ir  = pos-i 

IF(IP.LT.l)  CO  TO  60 
CALL  SEND(LEFTC) 

POS  = POS-1 

IF(GETCPR(FOPM<ROW,P0S),1)  .EC.  0)  GO  TO  20 
GO  TO  50 
C 

c RIGHT  CURSOR  PROCESSING 

60  CONTINUE 

IP  = POSU 

IF(IP.GT.BO)  GO  TO  40 
CALL  SEND(RIGHTC) 

POS  = POS+1 

IF(GETCHH(FORM(ROW,POS),l)  . EO.  0)  GO  TO  20 
GO  TO  60 
C 

C UP  CURSOR  PROCESSING 

70  CONTINUE 

IP  - POW-ITABFR-1 
IFCIR.LT.l)  GO  TO  20 
CALL  SFNDCUPC) 

ROW  = RCW-1 

IF(GETCPP(FOPH(ROW,PnS),l)  .EO.  0)  GO  TO  20 
GO  TO  70 
C 

r DOWN  CURSOR  PROCESSING 

90  CONTINUF 

IR  = ROW  »-l 

IEC IR.GT.ROWS)  GO  TP  20 
CALL  SFNP(POVNC) 

ROW  = RGW  + 1 

IF(GFTCHR(F0RM(R0'4,P0S),1)  .EO.  0)  GO  TO  20 
GO  TO  PC 
C 

C TAP  CURSOR  PROCESSING 

C SCAN  TO  FNP  0*  CURRENT  FIEL9 

90  CONTINUE 

If (POS. CE. 80)  CO  TO  95 
CALL  SEND(RTCHTC) 

POS  = POStl 

IFCGFTCKR (FORM (ROW /POS), i)  .EC.  0)  GO  TO  90 

C SCAN  TO  PEG  OF  NEXT  7IELP 

GO  TO  5C 

C ENO  OF  CURRtNT  LINE  HIT  WHILE  TAKING 

95  CONTINUF 

IF( ROV.CE. ROWS ) CO  TO  100 
GO  TO  40 
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00111 

C 

00114 

c 

—home  cursor  poocESSiNr, 

00115 

100 

CJNTINl’f 

00115 

CALl  SEND<H0*KC) 

00117 

ROW  - 1 

00118 

80S  = 1 

00119 

IP  = ITAaftt 

00120 

IE(TR.FO.O)  CO  TO  105 

00121 

DO  104  1=1,12 

00122 

CALL  SEND(DOtfNC) 

00121 

ROW  = 90W*1 

00124 

104 

CU.NTINIIF 

00125 

10S 

CONTIN'IF 

00126 

IF(GSTCF9( FORM! ROW, POS) 

00127 

CO  TO  60 

00123 

C 

00129 

c 

— XMIT  DAT*  PROCESSNC 

00130 

110 

CONTINUE 

00131 

CO  TO  150 

00132 

r 

0013? 

C-  — — — 

— EXIT  PROCESSING 

00134 

150 

CONTINUE 

00135 

CALL  STFKM 

00136 

CALL  MfSCRN(O) 

00137 

RETURN 

00138 

END 
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00034 

00035 

00036 

00037 
00039 

00039 

00040 

00041 

00042 

00043 

00044 
00046 
00046 
00C47 
00049 
00049 
00060 
00051 
0005  2 
0005  3 
00054 
00155 
00056 


SUBROUTINE  RDY0UT(IT,  ITEMP) 

r 

C THIS  S''PR0t'TINt  PRFPARFS  OUTPUT  TABLE  DATA  FOR  riSPLAY 

C 

DOUBLE  PRECISION  I TEMP (19,17) , NULL 

DOUBLE  PRECISION  IUTYPE, IE TYPE, IUSUB,15SUP,ICMPLX,MISS, 

1  nCONPS,DPLEX,ORIC,TARC,TTS 
HEAL  LROEF,  LIVPLX 

INTEGER  UR1GIN, TARGET, START, STCF,OM  AX, 'J  MIN,  U RE  AD  Y,UASK, 

1  UCOT 
C 
C 

COhMON/MODS/IPPPN, 1PAY 
DOUBLE  PRECISION  IPRUN 

C3MMON/PLOCXB/DSUN IT( 2, 20, 2), SC0MP3 ( 2, 20, 5), COMPS ( 2, 20,5), 

1 STRAT(2,20, 4),ADEPAT(2,20,2),AGXILL(2, 20,10),SRATE(2,?,5), 

2 OCOMPS(?,10),'4AYP(?,70),LRDEE(2,20),WSTfcX(2,20),eNDEF(2,?0), 

3 DRNAX(2,20),SPEGC{2,2P),IRRTIN(?,5),SR30MX{2,5),IKAXR(2,20), 

4 tLH0EF(2,20),lNSTNX(2,20),IBHDEF(2,20),NCOMPS(2),NSUHIT(?) 
COMMON/FLOCXC/COMPLX.(?,10,  10) , DPLEX( 2, 10) ,DTSLI( 2,10) , 

1 SURFAC(;,10),DEFAC(2,10),ICYCLE(2,10),IREPL(2,10), 

2 HFPJPS(2,10,2),0PS(2,11),REPATR(2,11),NPLFX(2),MTIME(2), 

3 NDAYS,JKXP£F,JLRDEF,WXSURV,OELAY,OPSLCH,OPSLNn 

COMMA N/BLOCXr/ IONOFFC2, 20,2),JONOFF(2,20,2),S1(2, 20,2), 

1 S2(2,20,2),MTS(2,20,8),UNTT(2,20,2),SA(2,20,2),SB(2, 20,2), 

2 TTS(2,20),RANGE(10, 10),IRANGE(10,10),DmSS(2,20),IPc'I(2,?0), 

3 ORIC(?,20),TARC(2,20),UMAX(2,20),UhIN(2,20),0RICIN(2,20), 

4 TAR3ET(?,20),TUNIT(2, 20),START(2,20), STOP( 2, 20),UREADY( 2, 20), 

5 DAY(30),WT(30),IWX(30),NVISS(?) 

COMhQN/PL0CKF/LIVPLX(2, 10,10),UASK(2,20,  3) ,UGOT(  2,20,3), 

1 3R30(2,10,5),AIRUP(20,5,6),AI7DN(20,5,8), ADP  ASF(2,10) 

COMMON/ IFACE/ IUTYPE( 2,1 5 ),IETYPE( 2, 1 5 ), I USUB( 2, 1 5, 15) , 

1 IFSUP(2,15,15),TC.MPLX(2,0),'»TSS(2,17) 

COMMON  /SFEC5/  ITAPFR,  lTA^LR,  ITABN3,  1TASNF,  I FLDS( 1 4, 15 ), 


1 IBLNX( 15,17),  IFORA  T( 2, 19 ) 

COH'ION/y AX/«AXCMP, M AXUNT, MAXMTS, NIT, MAXFLD,MAvpoH, NULL 
COMMON  /AIRFXP/  EXPS(19,10) 
rI VERSION  IEXPS(19,10) 

C IN1TI AL1 ? E ALL  FIELDS  TO  BLANKS 

CO  ?0  1=1,19 
DO  20  J=1,VAXRUW 
lTe'M?(I,J)  = NULL 
20  CONTINUE 


1F(  IT  . i-  U.  19)  GO  TO  30 

pri  - p 

IF (IT. EC .16  .34.  IT. EC. 19)  r4EC=l 
L = IbKCfI 

I r ( I T .GT.  It)  70  T 1 70 
NM  = NMISS(L) 

70  56  «=1,NM 

I T 1 = ,'A3X(L,M,l)*'JASX((.,M,2)+,JASK(t.  ,.M,  3) 

IT?  = UCOT(L/Mpl)FUGOT(L,v,D)*l,GOT(L,M,3) 

FMC ID 1(120, 1000,1  IFVP(  1 ,N) ) D,MSS(i.,M),iPRl(L,,,)/ 


! 


128 


»«-  W 
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00057 

1 

0RIG!L,M),TARG!L,M),SA!L,N,1),SB!L,M,1),SA!L,M,2), 

00058 

2 

SB!L,M,?),TTS(L,M),UNIT!L,M,1),UNIT!L,M,2),UMAX!L,K), 

00059 

3 

IT1,IT2 

00060 

55 

CONTINUE 

00061 

GO  TO  100 

00062 

C 

00063 

C 

00064 

70 

CONTINUE 

00065 

NC  = NC0MPSIL) 

00066 

NP  = NPLEX(L) 

00067 

NCHAR  = 70 

00068 

IP( IT  .FQ.  18)  NCHAR=90 

00069 

NM  = 0 

00070 

DO  75  K=1,NP 

00071 

NM  = NM*1 

00072 

ENCQDE!NCHAR,1001,ITEKP!1,NM))  DPLEX!L,K>, 

00073 

1 

!LIVPLX!L,K,I),I=1,NC) 

00074 

NM  = NM  + 1 

00075 

ENCODE! NCHAR, 100 2, ITEPP!1,NM))  !COHPLX!L,K,I),I=l,NC) 

00076 

75 

CONTINUE 

00077 

GO  TO  100 

00078 

C 

00079 

c 

00080 

30 

CONTINOF 

00081 

DO  34  1=1, 10 AY 

00082 

IEXPS( 1,I)=I 

00083 

DO  84  J=2, 19 

00084 

TEXPS(J,I)=EXPS(J,I) 

00085 

84 

CONTINUE 

00086 

IF! IDAY.LE.9)  IEXPSU  , IDAY+1  )=0 

00087 

C 

00088 

c 

-FORMING  TABLE  19  INTO  IT£*P 

00089 

MPY=0 

00090 

IROW=0 

00091 

90 

CONTINUF 

00092 

MD Y=MDY*1 

00093 

IF(IEXP?(1,MDY).EQ.0  .OR.  MDY.GT.10)  GO  TO  95 

00094 

IPOK=IROW+l 

00095 

ENCODE! 100,1 003, ITFMP(1, IRON) )(TEXPS(I,MOY), 1=1, 10) 

00096 

E NCODE!90, 1004, ITEMP!11, IRON ))!IEXPS!I,MDV), 1 = 11, 19) 

00097 

GO  TO  90 

00098 

95 

CONTINUF 

00099 

C 

00100 

C 

— RETURN  TO  CALLER 

00101 

100 

CONTINUE 

00102 

RETURN 

00103 

C 

00104 

C 

-FORMATS 

00105 

1000 

FORYAi(A5,5X,Il,9X,A6,4X,A6,4X, A3,A5,2X,A3,A5,2X,A8, 2X 

00106 

1 

A5,5X,A~,7X,I3,7X,I3,7X,I3,7X) 

00107 

1001 

FORMAT!A6,4X,4(F6.0,4X),4!F6.1,4X)) 

00108 

1002 

FORMAT!10X,4(F6.0,4X),4!F6.1,4X)) 

00109 

1003 

F0SMAT!I2,8X,I4,6X,3! I?,7X),I4,6X,3! 13, 7X) , I 4, 6X) 

00110 

1004 

FJRMAT!3!T3,7X),I4,6X,5! 13, 7X)) 

00111 

ENU 
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00001 

SUBROUTINE  PTUBLC( OTSTR, OUTPTR ) 

00002 

C 

THIS  SUPRO’JTINE  PUTS  THE  APPROPRIATE  CONTROL  CHARACTERS  INTO  THE 

00003 

C 

OUTPUT  STRING  'OTSTR'  TO  TURN  ON  BLINKING. 

00004 

IMPLICIT  INTEGER  ( A-Z ) 

00005 

INTEGER  OTSTP.(l) 

00006 

COMMON/TIO/TRMTYP,UPC,DOVNC,LEFTC,RIGHTC,UDX,TRANSC, 

00007 

1 

HONEC,TABC, APSPP 

00008 

IF(TRMTYP.EQ.l)  GO  TO  100 

00009 

IF(TRPTYP.EQ.3)  GJ  TO  300 

00010 

IFITKHTYP.EQ.2)  GO  TO  200 

00011 

TYPE  9999,TRMTYP 

00012 

9999 

FORMAT! * PTUBLC  DOES  NOT  SUPPORT  TERMINAL  TYPE  ',16) 

00013 

RETURN 

00014 

100 

CALL  PUTCHR(24, OTSTR, OUTPTR) 

00015 

OUTPTR  = OUTPTR  ♦ 1 

00016 

RETURN 

00017 

300 

CALL  PUTCHR(15,OTSTR, OUTPTR ) 

00018 

OUTPTR  = OUTPTR  «•  1 

00019 

RETURN 

00020 

200 

CALL  PUTCHRd 27, OTSTR, OUTPTR) 

00021 

OUTPTR  = OUTPTR  + 1 

00022 

RETURN 

00023 

END 

130 


00001 

SURROUT I NE  PTRLCIOTSTR, OUTPTR) 

00002 

c 

THIS  SUFKOUTI  N£  P'JTS  THE  APPROPRI  ATE  CONTROL  CHARACTERS 

00003 

c 

OUTPUT  STRING  'OTSTP'  TO  T"RN  OFF  BLINKING. 

00004 

IMPLICIT  INTFGER  (A-Z) 

00005 

INTEGER  OTSTK(l) 

00006 

COMMON/TIO/TRMTYP,UPC,DOWNC,LeFTC,RIGHTC,UOK,TRANSC, 

0000 '/ 

1 

F0KEC,TABC,ADS8P 

OOOOP 

IF(TRPTYP.EQ.l)  CO  TO  100 

00009 

IFITRMTYP.EQ.3)  GO  TO  300 

00010 

IF(TRRTYP.EQ.2)  GO  TO  "’00 

00011 

TYPE  9999,TRNTYP 

00012 

9999 

FORMAT! ' PTUBLC  DOES  NOT  SUPPORT  TERMINAL  TYFE  ',16) 

00013 

RETURN 

00014 

100 

CALL  PUTCHRn4,OTSTR,OUTfTR) 

00015 

OUTPTR  = OUTPTR  «■  1 

00016 

RETURN 

ooon 

300 

CALL  FnTCHR(M,OTSTR,OUTPT°) 

00018 

OUTPTR  = OUTPTR  * 1 

00019 

CALL  PUTCHH(14,OTSTR, OUTPTR) 

00020 

OUTPTR  = OUTPTR  + 1 

00021 

RETURN 

00022 

200 

CALL  PUTCHRO 27, OTSTR, OUTPTR) 

00023 

OUTPTR  = OUTPTR  ♦ 1 

00024 

RETURN 

00025 

END 
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00001 

SUBROUTINE  INIT 

00002 

C 

00003 

C 

THIS  SUP  ROUTINE  OBTAINS  THE  TERMINAL  TYPE  NUMBER  FROM  THE 

00004 

c 

USER  ANr  SETS  THE  VALUES  OF  APPROPRIATE  CHARACTERS. 

00005 

c 

00006 

IMPLICIT  INTEGFR  (A-Z) 

00007 

COMMONmO/TRMTYP,OPC,DO«NC,LFFTC,R I GHTC,UDX, TRANSC, 

00003 

1 H0MEC,TABC,ADS3P 

00000 

c 

00010 

c 

--ASK  USER  FOR  TERMINAL  TYPE 

00011 

20 

CONTIN'JF 

00012 

TYPE  1001 

00013 

TYPE  1000 

00014 

CALL  GETINT(TRMTYP) 

00015 

C 

00016 

r 

- — CHPCK  FOP  VALID  TYPFS 

00017 

IFITRFTYP  .EC.  1)  GO  TO  50 

00013 

IFCTP.WTYP  .EO.  2)  GO  TO  60 

00019 

GO  TO  20 

00020 

c 

00021 

c 

---SETUP  CHAK  DEF IN  ATION  FOR  TABLE  TOP  D ATAUEDI A 2500 

00022 

50 

CONTINUE 

00023 

CALL  STFRM 

00024 

UPC  = 26 

00025 

OOWNC  = 10 

00026 

LFFTC  - 3 

00027 

R1GHTC  = 29 

00023 

TRANSC  = 17 

00029 

HOMEC  = 2 

00030 

TASC  = 9 

00031 

CPC  = 13 

00032 

ERAS EC  = 30 

00033 

PROS  = 127 

00034 

'JNPROC  = 127 

00035 

BLC  = 14 

00036 

UN9LC  - 24 

00037 

GO  TO  200 

00039 

c 

00039 

c 

SETUP  CPAS  DFEIHATIONS  FOR  DOPT  AELE  DATAMEDIA  1520 

00040 

60 

CONTINUE 

00041 

CALL  STEkM 

00042 

UPC  = 31 

00043 

DOHNC  = 10 

00C44 

LFFTC  = 3 

00046 

RIGflTC  = 2° 

00046 

TRANSC  : 17 

00047 

HOMEC  = 25 

00049 

TARC  = 9 

00049 

CMC  = 13 

00050 

ERASEC  = 12 

00051 

PPOC  = 127 

00052 

UNPROC  = 127 

00053 

BLC  = 127 

00054 

UNBLC  = 127 

00055 

GO  TO  200 

00056 

C 
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00057 

C 

00058 

200 

00059 

00060 

c 

00061 

c 

00062 

1000 

00003 

1001 

00064 

1 

00065 

2 

00066 

RETURN  TO 
CONTINUE 
RFTURN 

FORMATS 
FORMAT! ' 
FORMAT!' 
' 1 = 

' 2 = 

END 


CALLFR 


TERMINAL  TYPE?') 

ACCEPTABLE  TYPES  ARE',/, 

TABLE-TOP  DATAKEP I A MODFL  2500.',/, 
PORTABLE  DATAMEDIA  MODEL  1520.') 
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00001 

SUBROUTINE  WOVC(Y,X) 

00002 

C 

• 

00003 

c 

THIS  SUBROUTINE  POSITIONS  THF  CURSOR  ON  THE  TERMINAL  VIA  X,Y  ADD 

00004 

c 

Y = RQN  NUMBER,  FIRST  ROW  IS  1 

00005 

c 

X=CUL  NUMBER,  FIRST  COL  IS  1 

00006 

c 

00007 

IMPLICIT  INTEGER  (J-7) 

00008 

CQMMON/TIO/T',MTYP,UPC,DOWNC,LEFTC,RIGHTC,UDX,TRANSC, 

00009 

1 

H OH EC, T ABC, AO SB P 

00010 

IF(TRNTYP  .FQ.  1)  GO  TO  100 

00011 

IF ( TRMTYP  -ED.  2)  GO  TO  110 

00012 

CO  TO  500 

00013 

c 

00014 

c 

00015 

100 

CALL  PTFPM 

00016 

CALL  SFEO( 1 2,HDX1 

00017 

J=X*96 

00018 

IF(X.GT.31)  J= J-64 

00019 

IF(X.GT.63)  J= J-64 

00020 

CALL  SEND ( J,UDX ) 

00021 

J=Y ♦96 

00022 

CALL  SEND(J,UDX) 

00023 

CALL  STFPM 

00024 

GO  TO  c00 

00025 

c 

00026 

c 

00027 

110 

CONTINUE 

00028 

CALL  3TE°M 

00029 

CALL  SFNPC30,UPX) 

00030 

J=X*31 

00031 

CALL  S EK'D  ( J,  VOX ) 

00032 

J=Y-1 

00033  . 

CALL  SFNP(J,VDX) 

00034 

CALL  STFRM 

00035 

GO  TO  500 

00036 

c 

00037 

c 

00038 

500 

CONTINUF 

00039 

RETURN 

00040 

ENO 
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00001 

SUBROUTINE  NWSCRN( ACLR) 

00002 

C 

00003 

C 

THIS  SUFROUTTNF  CLFARS  THF  SCREEN  AND  HOMES  THF  CURSOR 

00004 

C 

00005 

IMPLICIT  INTEGER  (A-Z) 

00005 

COMMON/? lO/TPVTYP/UPC/rONNC/LFFTC/SIGdTC/UDX/TRANSC, 

00007 

1 H0MEC,TA3C,ADSBP 

00008 

CPC-13 

00009 

F.RASF.r=30 

C0010 

IF( TRPTY? . EQ. 2)  FRASFC=12 

00011 

c 

00012 

c 

CHECK  FOR  ERASAPLE  TF9M  TYPE 

00013 

IF(TRVTYP.EO.l)  GO  TO  10 

00014 

IF(TRVTYP.£Q.?)  GO  TO  10 

00015 

GO  TO  200 

00016 

r 

00017 

c 

ERASE  SCFF.EN 

00013 

10 

CONTINUF 

00019 

CALL  SKMP(CRC,UrX) 

00020 

CALL  BTFRM 

00021 

CALL  SENP(ERASFC,ITX) 

00022 

CALL  SEND( 29/ UD X) 

00023 

CALL  STFRY 

00  024 

GO  TO  7C0 

00025 

c 

00026 

c 

RETURN  TO  CALLER 

00027 

200 

CONTINUE 

00028 

RETURN 

00029 

END 

I 


L 


j 


i 


00001  SUBROUTINE  FOKFS(UFLO) 

00002  C 

00003  C THIS  SUE  ROUTINE  SCANS  A PORM  REPLACING  USER  F IELO  CHAPACTEFS 

00004  C WITH  THF  CHARACTER  COUNT  INDFX.  IT  ALSO  RECORPS  TESCRIPTIVF 

00005  C DATA  AROOT  THE  FOR"  FOK  OTHER  ROUTINES. 

00006  C 
00001  C 

00008  COMMON  /CURTA3/  FORFNO,  FORM(?4,80) 

0000  9 COMMON  /SPECS/  ITA3ER,  ITAaLR/  IT  IBNR,  ITABNF,  IFLDS( 14, 15), 

00010  1 IPLNKI 15,11),  IFORMTI 2, 19) 

00011  INTEGER  FORM#  UFLD,  BLANK,  LNEND,  FORMNO 

00012  DATA  PLANE, LNF.NO/1H  ,-1/ 

00013  C 

00014  C INITIALIZE  VARIABLES 

00015  ITABFR  =•  -1 

00016  ITA3LR  = -1 

00011  ITARNr  = 0 

00018  ITABNF  = 0 

00019  COLN  = 0 

00020  DO  10  T=l,15 

00021  IFORMTI 1,1)  = 0 

00022  IFORMTI ?, I ) = 0 

00023  10  CONTINUE 

00024  JFLD  = 1 

00025  IROW  = C 

00026  ICOL  = 0 

00021  C 

00028  C BEGIN  SCAN  OF  NEXT  ROV/LINE 

00029  20  CONTINUF 

00030  IROW  = IROW+1 

00031  IF(  IROW  .GT.  24)  C-0  TO  100 

00032  LCOLN  = COLN 

00033  ICOL  = 0 

00034  LEN  = 0 

00035  NCHAR  = 0 

00038  C 

00031  C SCAN  NEXT  CHARACTER 

00033  30  CONTINUF 

00039  ICOL  = ICOL+1 

00040  IFCICCL  .IT.  30)  GO  TO  70 

00041  C 

0004?  C PROCESS  A !JSFR  E I ELD  CHARACTER 

00043  IF(FORM(IROW,ICOL)  .NE.  UFLD)  GO  TO  50 

00044  LFN  = ICUL 

00045  COLN  = COLN+1 

00946  FOP^CIPOW,  ICOL)  - COLE 

00047  IF(  IT  ARE  R . NE.  -1)  C'J  TO  30 

00049  NCHAR  = NCiHF.+l 

00049  IE( NCHAF  .SO.  1)  IFOCMT( 1 , JFL9 ) = ICOL-1 

00050  CO  TO  3C 

00051  C 

00052  C PROCESS  A NOE-USE?  ^IFLC  CHARACTt'’ 

00053  5C  CONTINUE 

0005 4 IFCFORK IROW, ICOL)  .NE.  °L ANF ) LLN=ICUL 

00055  IF ( NCH AF  .go.  0)  CO  TO  30 

00056  IF07VT(?,«.’FLC)  - NCHAR 
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00057  NCHAR  - 0 

00058  JFLD  = JFL0*1 

00050  CO  TO  30 

00060  C 

00061  C END  OF  CHARACTER  SCAN  FOP  THIS  LINE 

00062  70  CONTINPF 

00063  IF ( NCHAR  .EQ.  0)  CO  TO  80 

00064  IF0RMT<2,JFLD)  = NCHAR 

00065  NCHAR  = 0 

00066  JFLD  = JFLD*1 

00067  30  CONTINOF 

00068  C 

00069  C MART  ACTUAL  ENP  OF  LINE  IF  LESS  THAN  80  CHARACTERS 

00070  IF(LEN  .LT.  80)  FORK IROV,LEN*l  ) =LNEND 

00071  C 

00072  C NOTE  IF  ANY  USER  FIELD  CH ARACCTERS  HERE  IN  THIS  LINE 

00073  IF ( COLN  .EQ.  LCOLN ) GO  TO  90 

00074  IF( LCOLN  . EQ.  0)  ITABFR  = IROW-1 

00075  ITABNR  = ITAfiNR+1 

00076  ITA3LR  = IROW-1 

00077  90  CONTINUE 

00078  C 

00079  C GO  FCR  NEXT  LINE  TO  SCAN 

00080  CO  TO  20 

00081  C 

00082  C ALL  LINFS  OF  THIS  FOPN  SCANNED,  NOTE  NUKB.  OF  USER  FLOS. 

00083  100  CONTINUE 

00084  ITABNF  = JFLr-l 

00085  RETURN 

00086  END 
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1 


00001 

00002 

00003 

00004 

00005 
00005 
00007 
0000  4 

00009 

00010 
00011 
00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 
00027 
00024 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 
0004? 

00043 

00044 

00045 

00046 

00047 
00044 

00049 

00050 

00051 
0005? 

00053 

00054 

00055 
00054 


SUBROUTINE  LlSTO(IT,ITFVr) 

C 

C THTS  ROUTINE  OUTPUTS  A TABLE  TO  ME  LIME  PRINTER 

C 

INTEGER  FORM,  UFLD,  FORMNO,  OTSTR,  FOUR,  GETCFR,  OIJTPTP, 

1 COLN,  USRPTR,  TRMTVP,  UPC,  nONNC,  LEFTC,  RIGHTC,  TR ANSC, 

2 HOMEC,  TABC,  CRC,  FRASEC,  PROC,  UNPR3C,  ELC,  UNBLC, 

3 CPXPTR,  CFLD,  UROW,  XCHA9,  9FLP,  OFLD,  ODAY,  BLANK, 

4 RUNPTP,  OAYPTR 
C 

D0U8LF  PRECISION  ITFMP,NULL, IUT YPE, IET YPF, IIJSUP, 

1 ICMPLX,MISS,IESUa,KTEMP 

DIMENSION  ITPMP( 19, 1 7 ),  KTEMP(?C) 

DIMENSION  OTSTR(lf) 

COMMQN/MQDS/tDRUN,IDAY 
0003LE  PRECISION  IDPUN 

COMMON  /SPECS/  ITAPFR,  ITA8LR,  ITAENR,  ITABNF,  IFLDS( 14, 15), 
1 IBLN*(15,17),  IFORMTI 2,19) 

COMMON  /CORTAB/  FORMNO,  FOPM(24,oO) 

COMMON  /IEACF/  I"TYPE (7, 15  ), IPTYPE( 2, 15 ), IUSUB (2, 15, 15 ) , 

1 IESU8( 2,15,16 ),ICMPLX( 2,8), MISS (2, 17) 

DATA  UFLD/” 7250040201 00/ 

DATA  CFLD/"6150040201CO/ 

DATA  PFLP/"71 10040 201 00/ 

DATA  DFLD/" 421004020100/ 

DATA  °LA  NK/1H  / 


C READ-  IN  TABLF  FROM  FORMS  FILE 

IF (IT. LT. 15  .AND.  IT. EQ.FORMNO)  GO  TO  20 
DO  10  IRON  = 1,24 
1 NX  = IPOW  + 'l4*(  IT-1  ) 

kFAD(23XINX,1000)  ( FORM ( IRON, ICOL), ICOL=1,80) 
10  CONTINUF 

F0PMN0=1T 
C 

C REPLACE  ••u”  WTTH  DATA  CHAR  COUNT 

CALL  FOPMS(UFLD) 

r 

C CFT  COMPLEX  HEADERS  FOR  TABLE  13 

1E(TT  .KE.  13)  GO  TO  17 
00  16  1=1,8 
KTEM? ( I)  = ICMrLv(l,I) 

KTFVPI l+9)=ICMFLXC?,l) 

16  CONTINUF 

17  CONTUSE 
C 

C EMOTE  n tTTLE  DAVS  FOR  OUTPUT  TABLES 

IE(TT  .PT.  14)  FNCODF(2,1001,DD» Y)  TOAY 
C 

C INITIAL  IIP  '’OINTERS 

20  CONTINUE 

Tf0W=0 
NELO=0 
NC*'LD  = 0 
C 

C D^CIX  \FN  KOV 
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00057 

30 

COSfTTNUF 

0005  0 

IPOW=IPOW+l 

00059 

IF ( IROW  .CT.  23)  CO  TO  200 

00050 

IC0L=0 

00061 

USRPTP=0 

00062 

CPXPTR=C 

00063 

RUNPTR=0 

00064 

DA YPTfi=0 

00065 

00  35  1=1,16 

00066 

OTSTR(I)  = BLANK 

00067 

35 

CQNTINUF 

00060 

NFLD=0 

00069 

C 

00070 

C 

NEXT  COLUMN 

00071 

40 

CQNTINUF 

00072 

ICOL=ICOL+l 

00073 

IF( ICOL  .GT.  80)  GO  TO  100 

00074 

FCHAR=FORM( IPCW, ICOL) 

00075 

IF(GE?CHR(FCHAR,1)  .FG.  0)  GO  TO 

50 

00076 

IF( FCH  AK  .EG.  CFLO)  GO  TO  70 

00077 

IFCFCH.tR  .EG.  RFLD ) GO  TO  80 

00073 

IFIFCHAR  .EQ.  DFLU)  CO  TO  90 

0007? 

TFCFCHAR  .EO.  -1)  GO  TO  100 

00030 

C 

00081 

C 

OUTPUT  A FOPMS  CHARACTER 

00082 

CPXPTR=0 

00033 

USRPTft=0 

00084 

RUNPTP=0 

00085 

0 AY°TR=0 

00086 

CALL  PUTCHACFCHAR,  OTSTR,  ICOL) 

00087 

CO  TO  40 

00083 

C 

00089 

c 

BEGIN  A USER  DATA  FIELD  "u" 

00090 

50 

CONTINUE 

00091 

RUNPTR=0 

00092 

DAYPTR=0 

00093 

CPX°TR=0 

00094 

IF ( USRPTR  .NF.  0)  CO  TO  60 

00095 

NFLD  = NFLD*1 

00096 

UROW  = I ROW-IT A9FR 

00097 

IF(IPLNK(NFLD,UROW)  .EO.  0)  GO  TO 

60 

00098 

CALL  PUTCHR(62,OTSTP,ICQL-l) 

00099 

60 

CONTINUF 

00100 

USPPTP=USRPTP+1 

00101 

CALL  GETCHA(VCHAR,  ITFMPC NFLD,HRON) , USRPTR) 

00102 

CALL  PUTCHA(UCHAR,  OTSTR,  ICOL) 

00103 

GO  TO  40 

00104 

C 

00105 

c 

—PROCESS  A COMPLEX  HFAPFR  FIFLP  "c" 

00106 

70 

CONTINUE 

00107 

RUN?TR=0 

00108 

0AYnTR=0 

00109 

U3RPTR=0 

00110 

IF ( GPXPTR  . EO.  0)  NCFLO  = NCFLDM 

00111 

CPXPTP=CDXPTP-»1 

00112 

CALL  CCTCHA( XCHAR,  FTEHPC NCFLr ) , 

CPXPTR) 
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00113 

CALL  PUTCKA(XCHAR,  OTSTR,  ICOL) 

00114 

CQ  TO  40 

00115 

C 

00116 

C 

-PROCESS  A RONID  PIELP  "r" 

00117 

80 

CONTINUE 

00118 

CPXPTR=0 

00119 

USPPTR=C 

00120 

D AYPTR=0 

00121 

RUNPTR=R'JNPTR+1 

00122 

XCHAR=9L ANK 

00123 

IF(RUNPTR  .LF.  10)  CALL  GETCKA(XCHAR,IDRUN,RUNPTP) 

00124 

CALL  PUTCHA(XCHAR,OTSTR,ICOL) 

00125 

GO  TO  40 

00126 

C 

00127 

c 

—PROCESS  A BATTLE  DAYS  FIELD  "d" 

00128 

90 

CONTIHUF 

00129 

CPXPTR=C 

00130 

0SRPTR=0 

00131 

RUNPTR=0 

00132 

DAYPTR=r AYPTR^l 

00133 

XCHAR=BALNK 

00134 

IF(0AYPTR  .LE.  2)  CALL  GETCHA(XCHAR,DDAY,PAYPTR) 

00135 

CALL  PUTCH A(XCH AR,OTSTR, ICOL) 

00136 

GO  TO  40 

00137 

C 

00138 

C 

END  OF  LINE  ENCOUNTERED 

00139 

100 

CONTINUE 

00140 

NR ITE( 3# 1002 ) (OTSTRI I) , 1=1,16) 

00141 

GO  TO  30 

00142 

c 

00147 

c 

EMTIRF  TABLE  LISTED,  RETUR!.’  TO  CALLER 

00144 

200 

CONTINUE 

00145 

RETURN 

00146 

C 

00147 

C 

— -FORNATS 

00148 

1000 

FORMAT(POAl) 

00149 

1001 

FORMAT(I2) 

00150 

1002 

F0RMATflX,16A5) 

00151 

END 

r 
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TITLE 

SObTTL 


SLIP!  Fortran  Library  of  usefull  routines 
CFTCHI  Cettinq  a char  from  a ctiar-strlnq 


10 

5 

the  second  charact 

n 

/ 

i? 

ENTRY 

GETTPi 

13 

O0P00C'  47 

45 

f A 

43 

cn  4 1 

SIXB1T 

-CETCH*' 

14 

000001  ' 

Cr TCH«  J 

15 

300001'  350 

00 

1 

lb 

C000C2 

HRR7 

0,37(16) 

16 

OOPCOl'  360 

00 

e 

00 

omooo 

SOJ 

0, 

17 

0O0C0J'  731 

00 

0 

00 

000005 

IOIVI 

0,5 

19 

000C04 ' 701 

07 

0 

16 

oooooi 

MOTE  I 

2,  1 < 1 b ) 

19 

00n005 ' 700 

o: 

c 

07 

000000 

[IT; 

70VF 

2,(7) 

30 

000006  ' 603 

07 

c 

00 

000020 

tl*? 

2,70 

?1 

OU0037*  334 

00 

0 

00 

000005' 

JI1NP4 

INS 

77 

00CC10'  5^3 

70 

r 

00 

030007 

IPR'S 

2 

73 

000011'  370 

00 

c 

0? 

03000? 

♦nr 

0,2 

74 

000012'  500 

00 

0 

01 

000070' 

HLl 

0,PT»W(1) 

75 

000013'  114 

01 

f 

00 

100000 

1L30 

1,0 

76 

700014'  242 

01 

r 

00 

OOOC’b 

u5h 

1,35 

77 

000015'  434 

01 

c 

00 

000075' 

I tie 

1,E“»3N 

79 

OOOulo'  202 

Cl 

i 

lb 

000300 

MYFN 

79 

1100017*  ?fc  1 

17 

0 

00 

000000 

P 1)0.1 

17, 

10 

/ 

11 

/ 

17 

000070  * 

°T4": 

77 

O00070  ' 44 

17 

0 

00  I 

ooocoo 

POINT 

7,0 

14 

000071'  3b 

07 

0 

00  1 

300000 

POINT 

7,0,6 

15 

000072'  2t> 

07 

0 

00  oooooc 

.'PINT 

7,0,13 

76 

100073'  17 

07 

0 

00  1 

FOINT 

7,C,?0 

77 

000074'  10 

07 

A 

00  1 

[>C0O00 

POINT 

7,0,27 

17 

lL007b  ' 

P'MSif! 

14 

0 u 0 0 7 b ' 001004 

020103 

JCT 

1004070100 

40 

pocFNC 

Pal  1 1nq  lequence: 

C»LL  CETCH  4 (LCHiF,  KWU NCP»») 

i.  cp  i c :va  r i ab  1 e to  receive  the  character  (leftmost)  that  is  qotter 
6 V9  R D = v a r i ab  ! e or  array  to  bias  KCHAN's  froa  (or  source 
NCHiR-inteoer,  character  position  number  reiative  to  the 

leftmost  character  o(  NtiObr.  The  first  character  is  1# 
is  7,  eta. 


net  char  position  value 
correct  oosttion  to  zero  base 
calc  words  t.  chars 
qet  ?nl  item  in  arq  list 


J test  for  ini.  bit  on 


add  word's  to  vd  aJdr 
oe t pntr  bits  froa  tat1» 
qet  char 

shift  char  to  left  of  word 
blank  out  reaaininq  chars 
Put  char  in  return  word 
return  to  caller 
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41 

12 

4 3 

SUJITTi. 

i'lTCHU  Putting  a char  into  a char-string 

/ 

; 

Oal  1 Ing  Sequence: 

41 

; 

C ALL  °UTCH»  (LCHAF,  KK3RF,  NCUR) 

4b 

/ 

LCHtl^var  table 

containing  char ac t er ( 1 e f t aos t ) to  be  out 

45 

; 

NWO?r=virtable 

or  array  to  bias  tfCHUR's  froa  for  dest. 

4 / 

? 

hCH»F= Integer, 

character  position  nuaher  relative  to 

4 J 

; 

the  leftmost  character  of  MURO.  The  first 

19 

^0 

S! 

? 

character  is  1,  the  second  character  is  2,  etc. 

/ 

* VT9Y 

CTCH* 

s; 

oooooo  • 

6G  55  6£ 

4 3 

60  41 

srxflir 

'PUTCHf 

53 

oooooi  • 

Pl’TCFl: 

*>4 

000001  # 

55'' 

on 

1 

16 

000007 

HRKZ 

0,?7(16)  ; get  char  position  value 

5C 

000002  * 

J60 

OC 

c 

00 

oooooo 

SOJ 

0/  ; correct  position  to  zero  has 

4 6 

00000?' 

2 3 1 

no 

0 

OC 

rococo 

101VI 

3»5  ; calc  Position  in  ads  l chars 

■S  7 

0CO004' 

201 

O' 

r 

1 6 

000001 

unvFi 

2,1(16) 

1 

OCOOOb  ' 

200 

or 

c 

02 

oooooo 

▼no:  MUVP 

2,(2) 

59 

OOOOOo' 

603 

0? 

c 

00 

00C  020 

TL6F 

2,2C 

*c 

000007  ' 

3 74 

no 

0 

00 

oooonc;' 

Jt>P» 

I"C 

51 

000010' 

551 

00 

c 

00 

000002 

rtRKZS 

2 

52 

oooou  • 

270  00  C 

00  C00002 

a03 

0,2 

/ 

add  ads  to  aord  address 

6? 

000012' 

430  30  C 

01  C3C017 ' 

HU. 

0,PT*R(1) 

/ 

get  char  pntr  hits  fro*  table 

54 

000013  ' 

200  01  1 

16  000000 

MOVE 

1,  If  ( 1 6 ) 

/ 

get  char  to  be  loaded  (le'tnost) 

55 

000014* 

241  01  0 

00  000007 

SOT 

1,7 

/ 

shift,  char  to  rightnost 

oo 

OC0015* 

136  01  r 

00  OOOOOO 

iPrP 

1,0 

/ 

denosit  char  into  string 

57 

000016  * 

263  17  f 

00  OOOOOO 

PUPJ 

17, 

7 

return  to  caller 

53 

; 

t>9 

; 

TO 

P0C017  ' 

ttap: 

71 

000017  ' 

41  07  C 

00  OOOOOO 

POIHT 

7,0 

72 

>00C 

V 07  0 

OP  303C00 

F3I»’T 

7,0,6 

1 * 

>000"*: ' 

o 

on  pocooc 

Pflif.'T 

7,0,13 

■»  * 

v)  P O P ~ ' ' 

l'  P7  n 

00  oooooo 

P31*'T 

7,0,2C 

» 

-Ll>c  ' J ' 

1C  07  o 

00  0C0CO0 

FUINT 

7,0,27 

f P°G? N- 


u 
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77 

75 

70 

»0 

51 

42 

43 

44 

**6 

46 

97 

98 

99 

lOPOOh 

40 

000001 

71 

000031 

92 

0090)2 

9? 

000002 

34 

000003 

95 

000034 

96 

000046 

97 

00n00b 

39 

000007 

99 

"O0P1C 

1 on 

57  *5  l*  63  64  s' 

20 l 0?  0 16  030001 

200  0?  C 0?  OOOOOO 

603  02  C 00  00C020 

320  00  0 00  030002* 

560  01  c 00  O0000? 

500  01  0 00  O00011* 

104  00  0 30  000076 

263  17  0 00  OOOOPP 


SUcTTL  Ol'tSTS  Output  a string  to  the 
SE4FCV  KOhSVM  ; search  syst 

/ 

; Calling  sequence: 

; C4U  O'JTSTS  (PUVHY,  ISTS.VC) 

; PNNyY=unused  argument 

; TSTSHC=var  labl  e or  array  containin'!  the  str 
; The  string  Is  expected  to  begin  eith 

; ol  ISTSNo  and  proceed  to  a zero  byte 


} 

not  be 

output. 

} 

-MTPY 

O'lTSTP 

JIXP1T 

'OUTSTR * 

uutstr: 

90VEI 

2,1(16) 

imp: 

F0VF 

2,(2) 

TLNF 

2,20 

JOMPA 

1NP 

99.32 

1,2 

J string  addr 

HU. 

1, (POINT  7,0) 

; pntr  hdr  to 

PSQPT 

> output  stri 

FI3PJ 

n. 

; return  to  c 

P9CF9P 

contioling  terminal 
l-o)  «on  if  or  1 ihrary 


ina  to  be  output. 

the  lettmost  character 
. The  te to  byte  Mill 


to  op.tr  Ar 
pntr  AC 

m to  zero  byte 
al  ler 


143 
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000000*  c3  1r.  -t  44  oo  on 
OCP011 ' 

000001*  200  0!  1 10  000000 
000002*  101  00  0 00  000074 
000013*  ?t)7  17  r 07  010010 


SUBTTu  SFNP  Output  a byte  to  the  control ing  terminal 
SEARCH  MONSYM  / search  system  monitor  libnry 

Calling  Sequence: 

C ILL  Sr  KD(  CHth,  PfJMHY) 

~P»'>-charactar  to  output,  right- lust  1 fie  1 
riWY=unused  argument 

tNT»Y  SEHP 
SIXPIT  *SENP* 


MOVE 

pPOl’T 

POPJ 

pPCFXP 


l,b0(16) 


oet  uor-J  contalnino  char  rinht-Just. 
output  one  oyte 
return  to  cal  ler 
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116 

JV3TTL 

3LP  Pauses 

orocess  for  specified  time 

117 

JKAkCH 

MOMSVM 

/ search  system  monitor  library 

1H 

/ 

111 

} 

TaH  ins  Sequence: 

1 ?0 

/ 

CILL  SLP(  P ILSfcC  ) 

121 

} 

MILSFC^ Integer 

, number  of 

milliseconds  to  dismiss  process 

172 

f 

123 

t’lTFY 

3LP 

124 

000000  ' 

63  54 

60 

00 

00  00 

3TX0IT 

'SLP  * 

125 

000001' 

slp: 

176 

0G0C01' 

200 

01 

1 

16 

000000 

MOVE 

l/?C(lb) 

; qet  dismissal  time  period 

127 

000002' 

104 

00 

0 

00 

000167 

DISF3 

; dismiss  process 

124 

000003' 

263 

17 

0 

00 

OOCCOO 

POPJ 

17, 

/ return  to  caller 

121 

P7GEND 

Is  B£ST  Wauk  FRAcncjuux 

BBPH  GQfX  t'yx&lSHxx)  20  XiDQ 


no 

SUSTTL 

CKTT  net 

131 

SF  ARCH 

MONSYV- 

1 17 

/ 

113 

/ 

Calling  Sequence: 

1 1 4 

/ 

CALL 

Ct TT  (1NCHA9) 

115 

/ 

INCH AR=contains  the  nex 

1 36 

/ 

right 

justified 

i n 

/ 

1 35 

FYTPY 

GFTT 

139 

000000'  49  45  c4 

64 

00  00 

SIXB1T 

'CFTT' 

140 

000001' 

CFTT: 

141 

000001'  104 

00 

C 

00 

000073 

P0  I K 

142 

000002  ' 405 

01 

0 

00 

000177 

AND1 

1,177 

143 

000003'  202 

Cl 

1 

16 

000000 

POVFP 

1,?0(16) 

144 

000004 ' 263 

17 

0 

00 

OOCOOO 

POPJ 

17, 

145 

P’GFNC 

SU6TTL  CFTT  Oet  next  byte  from  control  terminal 
SF ARCH  HONSYP  ; search  system  monitor  library 


get  nxt  byt“  from  term 
o:ask  off  parity  and  garbage 
store  in  argument 
return  to  caller 


I 
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1 46 
’ 47 

S79TTL 

PNTCH3  “uttinq 

lightmost  ^ata  into  byte  strejir 

HI 

; Calling  iequenc*: 

147 

; CALL 

F’JTCHK  (I 

nCHAK,  SWJ^O/ 

NCHAP) 

1 SC 

; I9CH»o=v ar lab le  contalnq  the 

data  to  be  put  rightmost  1 hits  | 

IS! 

; NWQRr 

-var iaol  e 

or  array  to  bias 

NCHA.'t'j  from  for  dest. 

152 

; NCHIR 

= Inteaer, 

character  position  number  relative  to 

153 

> 

the  lettmost  character 

ot 

NWDF D.  The  first 

154 

/ 

character  is  1,  the  second  character  is  Zf  etc. 

155 

/ 

1 56 

txnv 

POTCH9 

] 

157 

900000' 

60 

65  64 

41 

40  62 

5 1X9  IT 

'PI1T0H9' 

isa 

900091  • 

putchr: 

159 

000001  ' 

530 

00  1 

16 

000002 

HP«7 

C,fci2(lt) 

/ 

qet.  char  position  value 

160 

000002' 

360 

00  0 

00 

000000 

SOJ 

0, 

/ 

correct  position  to  zero  base 

161 

000003' 

231 

00  0 

00 

000095 

10IVI 

0,5 

/ 

calc  position  in  wds  K chirs  | 

162 

0C0004 ' 

201 

02  C 

16 

COCOC1 

NOV  r I 

2,1(16) 

1 63 

000005' 

IfHS 

164 

009035' 

300 

02  0 

02 

OOOCOO 

M13VF 

2,(2) 

165 

900006' 

603 

0?  0 

00 

000020 

TLNF 

2,20 

166 

000007  ' 

324 

00  0 

oc 

0000C5  ' 

JUKPS 

IND 

167 

000010' 

533 

00  0 

00 

000002 

HRR2S 

2 

165 

000011  ' 

27  0 

00  C 

00 

000002 

AOD 

0,2 

/ 

add  wds  to  word  address 

149 

000017' 

500 

00  0 

01 

000016' 

HLL 

o, pt  An ( l ) 

/ 

qet  char  pntr  bits  form  table  j 

170 

000013' 

200 

01  1 

16 

000000 

■!JVF 

1,(4(  16) 

/ 

get  data  tc  be  loaded  ( ri  qht  iiiost ) 

171 

900014' 

l?o 

01  0 

00 

00n009 

IOP? 

1,0 

/ 

deposit  char  into  string 

172 

000015' 

263 

17  0 

00 

090000 

P‘3F  J 

n. 

/ 

return  to  cal ler  ] 

173 

/ 

174 

/ 

175 

009016' 

rTfcPj 

176 

000016' 

44 

07  0 

00 

oroooo 

POINT 

7,0 

177 

000017' 

35 

07  0 

00 

oooooc 

POINT 

7,0,6 

173 

000070' 

26 

07  0 

00 

000000 

POINT 

7,0,13 

179 

300021  ' 

17 

97  0 

00 

000000 

POINT 

7,0,70 

19- 

000022' 

10 

07  0 

00 

000000 

POINT 

7,0,  ?•> 

131 

fpcfnd 

I 
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SFMOD 

2,174300 

PflPJ 
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000002'  104  "0 

0 

00 

000107 
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200 
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